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PREFACE 



The SDS Project Management System consists of four programs: Schedule Spectrum Program (SSP), 
Detail Schedule Report Program (DSRP), Progress Evaluation Program (PEP), and Progress Evalua- 
tion Sort Program (PEPSORT). This document provides a technical reference for those interested 
in details of the organization and construction of these programs. Continuous improvements are 
being made to the system, and certain information in this document may become obsolete. There- 
fore, this information should be verified by the cognizant SDS representatives before it is used as 
a basis for changes. 

The catalog numbers for these programs are 



Cover Number 



SSP 



DSRP 



PEP 



PEPSORT 



910/925 Card Version 145001 

910/925 Tape Version 145008 



145002 145003 145004 145005 



920/930 Card Version 245001 

920/930 Tape Version 245008 



245002 245003 245004 245005 



9300 Card Version 645001 

9300 Tape Version 645008 



645002 645003 645004 645005 
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1. SCHEDULE SPECTRUM PROGRAM 



This section describes the SDS Schedule Spectrum Program (SSP), the first program in the SDS Project Management 
System Series. It is run during the process of determining a schedule for a project. The program reads data describ- 
ing project networks and creates a spectrum of project schedules which give minimum costs over a range of feasible 
project durations. 

PROGRAM FUNCTION 



This program is used in the planning stages of a project as a tool for developing a project schedule. It is through this 
program that the activity network is first introduced into the system. The main function of the SSP is to analyze cost 
and time data in order to determine a spectrum of minimum cost schedules over a range of feasible activity durations. 
It performs this analysis based on four items of data which are input for each activity of the network: 

1. Normal duration — The estimated time in which activity can be completed under a normal effort, where a 
normal effort is assumed to be the one which will accomplish the task at the least cost. 

2. Normal Cost — The estimated cost of completing the activity in the normal duration. 

3. Crash Duration — The minimum feasible time in which an activity can be completed by applying all practi- 
cal means of reducing the duration (such as overtime, additional resources, etc.). 

4. Crash Cost — The estimated cost of completing the activity in the crash duration. 

These four figures are to be estimated based on the assumption that the cost-versus-time curve for each activity will 
be approximately as illustrated in this diagram: 
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With this data for each activity, there are many ways in which a project can be expedited to achieve a desired total 
project duration. It would be impossible through manual computations to determine the best way, even for the sim- 
plest cases. The SSP "crashing" routine is able to determine the least costly way of achieving every possible dura- 
tion of the total project. 

The main output of the SSP program is a schedule (on magnetic tape) for every change in the rate of increase of the 
total project cost per unit of decrease in the total project duration. The printed output from the program is a list of 
these schedules with the schedule number, total duration, approximate total cost, and, if requested, the completion 
date of the project for each schedule that was created. This listing is called the Schedule Spectrum Summary Report. 

After examination of the summary report, the user is able to determine which schedules he would like to see in de- 
tail to help him in his development of a final project schedule. The selected Detailed Schedule Reports will be 
printed from the DSRP program. After examination of these detailed schedules, the user is able to make desired 
changes to network data and to make reruns of the Schedule Spectrum Program. This cycle can be repeated as often 
as necessary to develop a schedule that will be accepted as final. 



As activity data is processed through this program, it is written onto magnetic tape. This tape may be used as the 
basic input to the next run of the SSP, with changes to the data coming in from cards or paper tape. 

SSP USAGE 

The minimum equipment configuration used by SSP consists of 8192 words of core, 2 magnetic tape units, a typewriter, 
paper tape or punched card input, and an off-line or on-line printer. The program automatically expands its opera- 
tional capabilities as the configuration is increased. The maximum number of activities (NA) handled by the pro- 
gram is a function of the total amount of storage in the computer and of the ratio of activities to node points (RAE). 
The equation for an approximate value of NA, with calendar dating of project completion times on the spectrum sum- 
mary report, is given below: 

ma - Total Storage - 3150 

" (^) 

pAF _ Number of Activities 
Number of Nodes 

If calendar dating is not requested, a slightly greater number of activities can be processed. An approximate value 
of NA is determined as 

NA _ Total Storage - 1500 



(3.5 + i4\ 



RAE ] 



When RAE equals 1.8, the maximum number of activities handled by the program on an SDS 920 Computer without 
calendar dating is approximated in the following table: 

Available Maximum Number 
Storage (words) of Activities 

8,192 1,545 

12,288 2,490 

16,384 3,435 

20,480 4,095 

These figures are slightly less for operation on an SDS 910 Computer due to the use of programmed operators. A max- 
imum limit of 2047 event nodes can be handled by any of the above configurations. 

Operating Procedures 

The procedures for running SSP and instructions for filling out data forms for SSP are contained in the SDS Project 
Management System Reference Manual (publication number 90 08 18). Figure 1 is a diagram of the input/output 
process. 

SSP Output 

Output is always provided in off-line format on magnetic tape unit 2. A sample printout from SSP is presented in 
Figure 2. 

An Updated Parameter File, Unscheduled Activity File, and Scheduled Event File are written on magnetic tape unit 1. 
This tape becomes the input for the Detailed Schedule Report Program (DSRP). It can also be used as the basic in- 
put file for subsequent SSP runs. A detailed layout of this tape is given in the appendix. 

Error List 



Upon detecting an error, SSP enters an error routine that produces an error message on the typewriter. The meaning 
of each error number is given in the Project Management System Reference Manual. 
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SCHEDULE SPECTRUM SUMMARY REPORT 



(c) "-SPECTRUM RUN NUMBER 1 



RUN ID 15MAR64 



DURA STARTING HRS/ NORMAL NON-UO^K DAYS" 
UNIT DATE DAY 



CRASH 
OPTION 



D 15DEC64 8 SU SA 



©/ 



HOLIDAY CALENDAR DATES 



(T) *- 25JAN61 02FEB61 14MAP61 10JAN62 23FE862 15MAY63 030CT63 25DEC64 26DEC64 
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SCHEDULE SPECTRUM SUMMARY REPORT RUN ID 15MAR64 
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DATE 
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_2Q_ 
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15JAN65 
13JAN65 



19 



3260 



12JAN65 



18 



3410 11JAN65 




Figure 2. Schedule Spectrum Summary Report 

Letters below in "Field" column refer to the sample printout. 

Description 



Field Contents 



A Schedule Spectrum Summary Report 

B Any 79 alphanumeric characters 

C Any 68 alphanumeric characters 

D Any eight alphanumeric characters 



H = Hours 
D = Days 
W = Weeks 
M = Months 

Any legal date, blank, or zero. 

DDMMMYY 
DD = Day 
MMM = Month 
YY = Year 



Report Heading 

Project Heading 

From characters 2-80 of the type 1 input record. 

Run Heading 

From characters 13-80 of the type 4 input record. 

Run Identification Code 

From characters 5-12 of the type 4 input record. 

Type of Duration Units Code 

From character 2 of the type 2 input record. Shows type of time 
units in which durations are expressed. 

Starting Date 

From characters 3-9 of the type 2 input record. This is the 
calendar date (if any) that the program used as the start 
date of all starting activities. 



Field Contents 



Description 



K 
L 

M 

N 
O 



00-24 or blank 



From to 7 day codes: 

SA = Saturday 

SU = Sunday 

MO = Monday 

TU = Tuesday 

WE = Wednesday 

TH = Thursday 

FR = Friday 

C = C rash 

Blank = No Crash 



From to 164 holiday dates, each 
of the form DDMMMYY: 

DD = Day 
MMM = Month 
YY = Year 

Schedule Spectrum Summary Report 

Any eight alphanumeric characters 



1 - 9999 



1 -4095 



- 99999999 



DDMMMYY or blanks 

DD = Day 
MMM = Month 
YY = Year 



Working Hours Per Day 

From characters 10-1 1 of the type 2 input record. Shows the num- 
ber of hours in a work day. 

Days Off Per Week 

From characters 12-25 of the type 2 input record. Shows which 
days of the week have been considered as nonworking days during 
the assignment of calendar dates. 



Crash Option Code 

From character 4 of the type 4 input record. Shows if the crash 
analysis option was selected. 

Holiday Calendar Dates 

From the type 3 input records. Shows which dates have been con- 
sidered as nonworking holidays during the assignment of calendar 
dates. 



Report Heading 

Run Identification Code 

From characters 5-12 of the type 4 input record. This code is 
printed at the top of each page of this report for identification. 

Schedule Number 

This item is a schedule identification number assigned sequen- 
tially by SSP. 

Schedule Duration 

Total project duration for the given schedule. 

Approximate Schedule Cost 

Approximate total project cost associated with that schedule's 
duration. Note that this cost is not exact in this report. Due to 
memory limitations, the costs of each activity are automatically 
scaled and rounded to a 12-bit binary number, and sometimes 
significant figures are lost on the right end of this number. There- 
fore, this cost will not always agree with the one printed on the 
corresponding report from DSRP, since that one is exact. 

Project Completion Date 

If a start date is given, the calendar date of the completion time 
of each schedule is determined and printed in this column. There 
is one exception to this statement: if the size of the network is so 
great that there is not enough storage space for the calendar rou- 
tine (approximately 1400 activities with 8192 words of core stor- 
age), calendar dating of the total project duration is automatically 
inhibited. 



PROGRAM ORGANIZATION DESCRIPTION 

SSP is coded in relocatable form in the SDS META-SYMBOL language. It contains its own loader and, therefore, 
does not require the MONARCH system tape. The program is divided into many routines which are assembled sepa- 
rately. They are executed under control of the SSP Control Program, using the META-SYMBOL external reference 
provision. Most of the data used by the routines is located in a region called Common Data and Storage. References 
to this area also use the META-SYMBOL external reference provision. 

The program is constructed in three segments. During execution of program segment I, parameters and the activities 
making up the network are read from the selected input device and edited. The activity records are written on mag- 
netic tape unit 2, behind the program segments, as the unsorted activity file. Certain information is extracted to 
make up the abbreviated activity records which are retained in memory for further processing. Dummy tape activity 
records and abbreviated activity records are also created internally for milestones. 

The first part of segment I is not overwritten when segments II and III are read and executed. This group of programs 
and subroutines, which are common to all three segments, consists of 

Common Data and Storage, 

SSP Program Control 

Magnetic Tape Read Subroutine 

Magnetic Tape Write Subroutine 

Error Subroutine 

Binary to Decimal Conversion Subroutine 

Decimal to Binary Conversion Subroutine 

Segment II does the network construction and schedule optimization and writes the updated parameter file, the sorted 
activity records, and the scheduled event file on magnetic tape unit 1. 

Segment III reads the scheduled event file, determines costs and calendar dates for each schedule, and prints the 
Schedule Summary Report. 

A summary of SSP processing sequences is given in Figure 3. 

SSP Storage Arrangement 

The storage arrangement of SSP for the SDS 920 Computer version is shown in Figure 4. The F, S, or T in front of the 
various routine numbers denotes first (F), second (S), or third (T) program segments. 

Segment I (along with the common routines F01 through F09) is loaded from punched cards or paper tape into the com- 
puter first. Programs F05 (Magnetic Tape Write Subroutine) through F32 (Calendar Subroutine) are written on magnetic 
tape unit 2 under control of program F33 (End Segment I Load Routine). All external references in these programs 
have been fulfilled by the time they are written onto tape. Note that references to segments II and III in the SSP 
Control Program (F03) have not yet been fulfilled. 

The End Segment I Load Routine then transfers control to the Binary Load Routine (F0 1 ) with the proper indications set 
up to retain the symbol table. It is important to retain the symbol table because the common routines (F02 through F09) 
are not loaded again with segments II and III. In fact, the Common Data and Storage (F02) and the SSP Control Pro- 
gram (F03) cannot be loaded again because they both contain references to segment I programs, which were set up by 
the Binary Loader during the reading of segment I. 

Segment II routines (Si through S9) are then read from punched cards or paper tape, under control of the Binary Loader. 
They load over part of segment I, starting at the origin of routine F10. All external references in segment II programs 
are fulfilled as they are read. Control is then transferred to the End Segment II Load Routine (S09), which writes seg- 
ment II onto magnetic tape 2 immediately following segment I. The segment II that is written onto tape consists of 
common programs F05 through F09 as well as SOI through S08. Control is then returned to the Binary Load Routine, 
again retaining the symbol table. 

Segment HI routines (Tl through Til) are read from punched cards or paper tape. They are read over segment II, start- 
ing at the origin of routine Si. Control is then transferred to the End Segment III Load Routine (Til), which writes 
segment III onto magnetic tape unit 2, immediately following segment II. The segment III which is written onto tape 
is made up of program F05 through F09, as well as T01 through T10. Control is then transferred to the Binary Load 
Routine, again retaining the symbol table. At this point, all external references in the Common Data and Storage 
Area (F02) and the SSP Control Program (F03) have been satisfied. 
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Figure 3= SSP Process Sequence Diagrar 
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e locations in this column are subject to change, and therefore, can only be regarded as approximations. 
See Routine Roster for names of routines that correspond to these deck numbers. 
The data arrays in these columns are filled from the end of available storage towards the end of the program. 



Figure 4. SSP Storage Arrangement 



The SSP Start Routine (T 12) is read from punched cards or paper tape into locations immediately following the end of 
segment I (behind routine F33). Control is transferred to the SSP Start Routine. It rewinds the tape and reads segment 
I (starting with routine F05). Then control is transferred to the SSP Control Program (F03), and the loading procedure 
is complete. 

During execution of SSP, segments II and III are read from magnetic tape at the proper times under control of the SSP 
Control Program (F03). During the execution of the various segments, parts of the programs are overlayed with data, 
as shown in Figure 4. 

Tape Layouts 

There are three files on the output tape on unit 2: the Parameter File (1 BCD Record), followed by the Sorted Unsched- 
uled Activity Record File (1 BCD record per activity), followed by the Scheduled Event File (1 binary record per 
schedule). This record can be used as input to DSRP or as input to subsequent SSP runs. The details of these record 
formats are presented in the appendix. 

SSP Execution Description 

The SSP Control Routine (F03) dictates the execution sequence of various routines that comprise SSP. After a routine 
is executed, control is returned to the Control Routine to determine which routine should be executed next. In the 
following discussion the statement that "control is returned to the Control Routine which in turn transfers control to 
routine X" is implied preceding the description of each routine. The routines are described in the order in which 
they are executed. 

After the program has been loaded and written onto magnetic tape, the Non-Activity Oriented Initialization Routi ne 
(F 17) determines the extent of core and sets up data words to define the locations of the abbreviated activity records, 
the activity successor records, the M and N node numbers, the selected activity area, the sequenced activity area 
and the sorted tape activity record area. Next the I/O Device Selection Routine(F18) requests the input and output 
configuration description from the typewriter. Then the Parameter and Holiday Input Routine (F19) reads the param- 
eter records (see detailed input record description) from the selected input device into the parameter section of the 
Input/Output Area (F 1 0). This program continues to read parameter cards until it encounters a type-5 or a type-9 rec- 
ord (which is saved for later processing). 

Control is returned to the SSP Control Program which determines the input device. If input was from punched cards 
or paper tape, no changes to the parameters or activities can be input, and an indication of this fact is set up in 
storage. If the input is from magnetic tape, control is transferred to the Change Input Device Selection Routine (F20), 
which requests a type-in of an N for no changes, a C for changes on cards, or a P for changes from paper tape. If 
changes are to be input, control is transferred to the Parameter and Holiday Input Routine; if no changes are to be 
entered, control goes to the Parameter Conversion Routine. 

The Parameter Holiday and Input Routine (F 1 9) reads the changes and stores them over the original parameters of the 
given types. Changes are read and stored until an activity change or a type-9 record is read (the type-9 record is 
saved for later processing). 

The Parameter Conversion Routine (F21) converts the parameters from their BCD codes into forms more suitable for in- 
ternal processing and saves these new codes. 

Next the Holiday Sort Routine (F22) sorts the holidays that were input with the parameters into chronological sequence, 
leaving them in the same area. Then the SSP Control Program determines whether or not a calendar start date was in- 
put with the parameters. If one was not input, control is transferred to the Activity Record Input Routine (F24) . If 
one was input, the Calendar Initialization Routine (F23) is executed, which in turn transfers into the Calendar Rou- 
tine (F32) at its setup entry location $CALE1. This entry sets up all data needed to compute calendar dates from 
basic working units or basic working units from a calendar date. Data calculated during calendar setup include: 

1. A vector containing the number of working days in each of the years (maximum of 15) from the start date of 
the project. 

2. A binary holiday vector containing the holiday dates in terms of total accumulated days since the start of the 
project. 

3. A vector containing the subscript of the first holiday in each year. 

4. A vector containing the number of holidays in the next 15 years. 



5. The day of the week on which the project starts. 

6. The type year in which the project starts (leap year, year after leap year, etc. ). 

The precalculation of the above data makes possible the rapid calculation of individual dates and durations. These 
calculated items are stored in the Common Data and Storage Area for later use. Control is returned to the Calendar 
Initialization Routine, which returns to the SSP Control Program. 

The Activity Record Input Routine (F24) processes the first activity record from the area in which it was saved during 
the parameter input. The rest of the activities are read from the selected normal input device. As each record is 
read, validity checks are made on the costs and durations, and leading blanks are replaced by zeros wherever perti- 
nent. The records are moved from the input area into the output area of the Input/Output Area (F 10) and changed 
to the tape activity record format. One activity record is read during each entry of this routine. If this record is 
not an end-of-activity record, control is returned to the normal return in the SSP Control Program, where a test is 
made to determine if the record contains a milestone date or time. If it does contain one, the Milestone Time Setup 
Routine (F25) is entered. If the milestone was given as a date, it is converted to relative units by the Date to Basic 
Units Conversion Routine (F31), which executes the Calendar Routine. The milestone time, in relative units, is 
stored over M temporarily in the tape activity record. 

The Write Activity Record (on Unit 2) Routine (F26) sets up the record number in the tape activity record and writes 
the record on magnetic tape unit 2. 

This process of reading activity records from the selected input device, editing them, and writing them on magnetic 
tape unit 2 continues until an end-of-activity (input) record is read. At this point, if the input device was magnetic 
tape and if there are changes, the change records are read from the selected input change device, again using the 
Activity Record Input Routine (F24). They are processed, executing the same series of routines described for the nor- 
mal activity input. The changes are written as part of the unsorted activity record file, immediately following the 
regular activities. 

When an end-of-activity (input) record (type 9) is processed or if there were no changes, the End Activity File Rec- 
ord Routine (F13) is executed. An end-of-activity file record is written after the last activity change record on mag- 
netic tape unit 2. This is followed by the erasure of an area of the tape, so that the tape can be repositioned for 
writing milestone dummy activity records at the end of the file later. A rewind is initialized on unit 2, and control 
is returned to the SSP Control Routine. 

If the original activity input was from magnetic tape, the Type Reel Change Message Routine (F27) is executed to 
notify the operator that, if he wants to save the original input tape in order to be able to rerun, he should change 
reels on magnetic tape unit 1. There is no halt at this point, and processing continues while the reels are being 
changed. If the original input was not from magnetic tape, this program is not executed. 

Next, the Skip Program Segments Routine (F28) delays until the rewind on magnetic tape unit 2 is completed and then 
positions the tape past the program segments to the beginning of the unsorted activity record file which was just written. 

The Create Abbreviated Activity Records Routine (F 11) reads the records, one at a time, from the unsorted activity 
record file on magnetic tape unit 2 into the output area of the Input/Output Area (F10). Certain information is ex- 
tracted from each record and saved in core storage to create the abbreviated activity records. Each abbreviated ac- 
tivity record consists of three words, which are stored in three separate areas, as shown in Figure 4. One-third of 
the available core storage is assigned for each of these areas. The area formerly occupied by routines F22 through 
F33 is no longer required and is considered to be available for storage of abbreviated activity records. 

The first word of the abbreviated activity record is referred to as the miscellaneous abbreviated activity record word. 
Initially, it is set up to contain the milestone time in binary in the first 12 bits (0-11), zeroes in bit positions 12 
through 17, and the Duplicate I, J Differentiation Code in BCD in bits 18 through 23. The second word contains the 
I identification number of the activity in BCD, and the third word contains the J identification number of the activ- 
ity in BCD. Note that the first and second bits of I and J are zero because of the restriction that the first character 
of I and J mus.t be numeric. The contents of these words are changed throughout the processing. 

Also during the execution of this routine, the transaction code of each activity record is tested to determine whether 
or not the removal flag should be turned on (bit 12 of the miscellaneous abbreviated activity record word). This flag 
is turned on in all abbreviated activity records that are to be deleted due to the input of replacements and deletions. 
It is also turned on when the input is a milestone dummy activity record that was created internally and written onto 
the tape on the previous SSP run. 
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The three words of the abbreviated activity records can be represented as follows: 

r — Removal Flag 
First Word: 
(miscellaneous! 
word) 

Second Word: 
Third Word: 



23 

This program is completed when the end-of-activity file record is read. At this time, the tape on unit 2 is backspaced 
so that it is positioned ahead of the end-of-activity file record in order that this record can be overwritten. 

Control branches to the Set Up Milestone Dummy Activity Records Routine (F 1 2), which makes a pass through all the 
abbreviated activity records, looking for those that contain relative milestone times. For each activity it finds that 
has a milestone, the program creates three dummy tape activity records and adds them to the unsorted activity record 
file on magnetic tape unit 2. It also creates the three corresponding abbreviated activity records and saves them in 
core storage. The purpose of this procedure is to present to the crash routine a set of activities that will cause the 
crashing to proceed in a manner which will force milestones to be met, if possible, before allowing crashing of any of 
the activities that follow the last milestone. 

The first of the three milestone dummies for every activity has an I of 33OOOOOO3, which is a dummy start node. J is 
equal to the J of the activity with milestone time, but with a bit merged into the second bit position. Its duration is 
the milestone time. This number is stored in the duration field of the dummy tape record and in the first 12 bits of the 
miscellaneous abbreviated activity record word. 

The second dummy has an I equal to the J of the activity with the milestone time, but with the zero bit merged into 
the second bit position. Its J is actually the same as the J of the activity with the milestone time. Its duration is 
zero. 

The third milestone dummy has an I equal to the J of the activity with the milestone time but with the 1 merged into 
the second bit position. Its J is always 34000000g, which is a dummy ending node. Its duration is the maximum al- 
lowable duration - (40*95) 10 = (7777) Q . 

After the completion of the above processing, one change is made in the abbreviated activity record of the activity 
with the milestone time. Its J is changed by merging the 1 bit into its second bit position. 

The changes made to the network for each activity found with a milestone time are summarized in the following dia- 
gram, where J' indicates the J of the activity with the milestone time but with the 1 merged into its second bit posi- 
tion. 



First Milestone Dummy 



Third Milestone Dummy 



y 



Duration = Milestone Time 



/ 



(33000000) 8 



Duration = 4095 
_^<x Second Milestone Dummy 
Duration = 
J' J 



(34000000) 8 



In addition to setting up the milestone dummies, this routine changes I to 27777777 g for each activity in which the 
delete flag is on. This procedure causes*the deleted activities to sort at the end of the file when the abbreviated ac- 
tivity records are later sorted on I and J. 

Control is returned to the SSP Control Routine, which branches again to the End Activity File Record Routine (F13) . 
This program writes the end-of-activity file record (type 6000), initiates a rewind of magnetic tape unit 2, and re- 
turns to the SSP Control Program. 
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Control is then transferred to the Assign Unsorted Activity Numbers Routine (F 14), which numbers the abbreviated ac- 
tivity records sequentially according to their current position in core storage. This unsorted activity number is stored 
in the first 12 bits (0-1 1) of the miscellaneous word of each abbreviated activity record (over-writing the relative 
milestone time, which is no longer required). The miscellaneous word now looks as follows: 



Miscellaneous Word: 





r Removal Flag 




1 Unsorted Activity Number (binary) 







Dupe Code (BCD) 


'o 


T? 




18 23 



If the original input device was magnetic tape, the Reel Change Verification Routine (F 15) is executed next. This 
program types a message notifying the operator that magnetic tape unit 1 is about to be used for output. Then the 
program halts. When the operator is ready for the run to continue, he clears the halt. Control is returned to the SSP 
Control Routine. If the original input device was not magnetic tape, this routine is not executed. 

The SSP Control Program branches next to the Write Updated Parameters Routine (F16), which rewinds magnetic tape 
unit 1, erases an initial gap on that tape, and writes the updated parameter file as the first record on that tape. It 
also moves the number of activities and the number of events into the parameter area of the Input/Output Area (F10), 
before it writes the record from that area. 

The Topological Sort Routine (S05) is executed next to assign each of the activities to a position in a thread such that 
every item on the thread follows all its predecessor activities. This is accomplished by creating an arbitrary initial 
thread, then moving along this thread, examining the I and J of each activity to find if the activity has successor ac- 
tivities that are assigned to the thread ahead of the given activity. When one is found, it is moved to the end of the 
thread, from which position it will later be examined to determine if it stili follows ali its predecessors. If it does not, 
it will be moved to the end again. This process continues until the last activity of the thread has been examined with- 
out finding any succeeding activities ahead of it. Activities are not physically moved from their I, J, Duplication 
Code sequence during this process. Instead, the last 12 bits (12-23) of each entry in the miscellaneous word of the 
abbreviated activity record is set to contain the number of the activity immediately succeeding it in the thread. These 
12-bit items are referred to as the successor vector. 

The miscellaneous word of the abbreviated activity record now appears as follows: 



Miscellaneous Word: 
(Successor Vector) 



Unsorted Activity Numbers (binary) 







Succeeding Activity Numbers (binary) 



12 



23 



Once the topological thread has been determined, it is possible to assign new identification numbers M and N to the 
nodes, based on their order of appearance within the thread. This is accomplished by the execution of the M and N 
Assignment Routine (S06). It should be noted that all starting nodes (nodes with no activities leading into them) are 
assigned the number 1, and all ending nodes (nodes with no activities leading out of them) are assigned the highest N. 

At the completion of this process, M and N are stored in the topological sequence in the I words of the abbreviated 
activity record and repeated again the J words of the abbreviated activity record. They are used only in the I words. 
The abbreviated activity record words now appear as follows: 



First Word: 
(Successor Vector) 



Unsorted Activity Number (binary) 


Succeeding Activity Number (binary) 





12 23 



Second Word: 



Third Word: 






M Node (binary) 





N Node (binary) 





1 


12 


23 






M Node (binary) 





N Node (binary) 1 





1 


12 


23 



12 



The next task is to sort the activity status records on tape into the newly determined topological sequence, using the 
Topological Tape Sort Routine (S07). Since the program must operate using only two tape units, the sort is required 
to make multiple passes through the unsorted activity record file (on magnetic tape unit 2), pulling off as many rec- 
ords as possible (n records) each pass, and writing them on the sorted activity record file (magnetic tape unit 1). 

This is accomplished by extracting the next n items from the successor vector (as defined by the thread) and moving 
them into the selected area (see Figure 4). The number of the activity in the sorted sequence is now inserted in the 
last 12 bits of the extracted words. The first 12 bits of these words retain the number of the activity in the original 
sequence. These extracted words are now sorted on the original sequence number and stored into the sequenced area. 
They are now in the same sequence as the records in the unsorted activity record file. 

Since these records are not contiguous, a complete pass through the unsorted file is required to read each group of n 
activity records. As the records are read, their input locations are calculated, based on their new sequence number; 
thus, after each pass, storage will contain the next n records in the assigned topological sequence. They are now 
written on the sorted activity file. As many passes are made through the unsorted file as are required to place all the 
records in their new sequence in the sorted file. 

The SSP Control Program then transfers to the Activity Oriented Initialization Routine (S08), which sets up all ad- 
dresses required for locating those data arrays that vary in length depending on the number of activities or number of 
nodes in the network. 

Next, control branches to the Create Crash Data Arrays Routine (S03). This routine reads each activity record from 
the sorted activity record file (magnetic tape unit 1), and sets up M and N, duration, and cost per unit of duration 
(slope) for each activity. Note that the slopes are set to a large number (4095) for every dummy activity and for ev- 
ery milestone dummy, and that the slopes are scaled so that the largest one does not exceed 12 bits. The routine 
then calculates the scheduled node times for each node, based on normal activity durations. 

Note that when these normal node times are set up, tests are made on end nodes to determine if the time results from 
an end milestone dummy. The greatest milestone dummy node time is saved. 

Now the Write Scheduled Event Time Record Routine (SOI) writes a single binary record on magnetic tape unit 1, 
which contains one word for each node time. Also, at this time, milestone dummy end node times are reduced to the 
maximum allowable duration (4095). 

The Control Program tests whether or not the crash option was selected. If it was, the Crash Routine (S02) is executed 
to determine which individual activity durations should be compressed in order to decrease the total project's duration 
at a minimum increase in cost. Once these activities have been determined, the schedule is compressed as far as pos- 
sible without increasing the rate at which the cost of the total project is rising (constant slope). 

Upon initial entry to the Crash Routine, all activities in the network are set at their normal durations. The activity 
durations to be compressed are determined and the node times affected by these duration changes are calculated. 
When an increase in the cost slope is reached, the routine returns to outer control and the new node times are rec- 
orded on tape using the Write Schedule Event Time Record Routine (SOI). Outer control then re-enters the Crash 
Routine for the node times corresponding to the next slope change. This cyclic process is repeated until the shortest 
total project duration is obtained. 

The shortest possible total project duration is reached when all activities along one of the current critical paths of the 
network have had their durations brought back to their crash durations. When this condition occurs, the Crash Rou- 
tine sets an indicator for the outer control and returns. 

The mathematical algorithm used to compress the project schedule along a path of minimum cost is a variation of a 
method .developed by D. R. Fulkerson of RAND Corporation. This algorithm is described in detail in an article en- 
titled "A Network Flow Computation for Project Cost Curves, " which appeared in the January 1961 issue of Manage- 
ment Science, Volume 7, No. 2. 

When the final schedule has been determined and written on magnetic tape, program segment III is read into core 
storage from magnetic tape unit 2. The first routine executed in segment III is the Write End of Time File Record 
Routine (T08), which writes a record with a 9000 record type to indicate the end of the file. 

Next, the Read Parameters from Unit 1 Routine (T09) rewinds unit 1 and reads the updated parameter file back into 
core storage. The Parameter Print Routine (TIP) is then executed to print the heading page of the summary report, 
including project and run heading, selected run option codes, starting date, and holidays. The page is printed using 
the Report Line Output Routine (T03). It is also written at the beginning of the tape on unit 2, with the required for- 
mat digits for off-line listing. 
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Control branches to the Set Up Data Arrays for Summary Report Routine (T07) which reads the activity records from 
the sorted activity record file on magnetic tape unit 1 and stores the normal cost for each activity in an array in core 
storage. Each cost is shifted right as many bits as are required so that the maximum normal cost can be contained in 
12 bits. If the activity number is odd, this scaled normal cost is stored in the left half of the word, and the scaled 
normal cost for the next even activity number is stored in the right 12 bits of the same word. Also in this routine, if 
the activity is noncontinuous, a 1 is stored in the first bit position (sign bit) of that activity's entry in the M and N 
node number array. If the activity is a milestone dummy, a 1 is stored in bit position 12 of that activity's array in 
the M and N node number array. 

The Schedule Summary Report Output Routine (T02) prints the page headings and the Summary Report, using the Re- 
port TTne~^Oulpur3u¥routTneU the line image with appropriate format control digits onto mag- 
netic tape unit 2. The routine reads each scheduled event time record from magnetic tape unit 1 and outputs one line 
for each schedule. The program must return the normal cost and slope to their original scales. It then calculates the 
actual cost of each activity for a given schedule based on the normal cost, slope, node times, noncontinuous activity 
indicator, and milestone indicator for that activity. The calculated cost of all the activities in the network is accu- 
mulated, to double precision, in order to determine the approximate total cost of the schedule for output. 

If a project starting date was given and if sufficient core storage is available to retain the Calendar Routine, the pro- 
ject completion date is determined from the project completion time, using the Date to Basic Units Conversion Routine 
(T06) , which uses the Calendar Routine (T05) . This date will also appear on the line of the report for the given 
schedule. 

Control is finally returned to the SSP Control Program, which branches to the Error Routine (F06) to print the end of 
the program message. 
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2. DETAIL SCHEDULE REPORT PROGRAM 



This section describes the SDS Detail Schedule Report Program (DSRP), the second program in the SDS Project Man- 
agement System Series. It receives its input from the Schedule Spectrum Program (SSP) and provides the initial pro- 
gress evaluation run input to the Progress Evaluation Program (PEP). 

PROGRAM FUNCTION 

The primary function of the Detail Schedule Report Program (DSRP) is to produce selected detail schedules from the 
information output on tape 1 by the Summary Spectrum Program (SSP). This tape contains system run parameter data, 
unscheduled activity information, and early node times at each slope change point on the Total Cost vs. Project 
Duration Curve. An example of the spectrum curve is shown below. 



Total Project Cost ($) 



All Crash Duration 



All Normal Duration 
Requested Duration (typ.) 




Total Project Duration 
(end date or basic units) 



DSRP can produce detail schedules for any specified integer duration between the "All Normal" and "All Crash" 
durations of the project schedule spectrum. As many schedules as desired may be requested by the user. These sched- 
ules may be requested in terms of end duration in basic units of working time, by end of project data, or by schedule 
number. Likewise, all intermediate times within the detail schedule may be obtained in terms of a calendar date 
and/or in basic working units. If schedule numbers are used, no interpolation between SSP output schedule time is 
allowed. 

The detail schedule report contains information defining each activity's early start and finish times, late start and 
finish times, free and total float, expected cost and duration, milestone status and other identifying comment fields. 

A secondary function of DSRP is to provide the initial input (tape) for the Project Evaluation Program (PEP). 

DSRP USAGE 

The minimum configuration used by the DSRP consists of 8192 words of core, two magnetic tape units, paper tape 
reader, on-line typewriter, and an off-line printer. It is designed to expand its operational capabilities automati- 
cally as the configuration is increased. Provisions allow operation in conjunction with card reader input and on-line 
printer output. The number of activities processed by the program can be increased by the addition of more core 
memory. 

The maximum number of activities handled by the program operating on an SDS 920 Computer are shown below. 



Memory 
(words) 

8,192 
12,288 
16,384 



Activities 

1645 
3005 
4096 



These figures are slightly less for the 910 Computer due to the use of programmed operators. A maximum limit of 
2047 event nodes can be handled by any of the above configurations, independent of the number of activities. 

Loading Procedures 

Procedures for operating the DSRP and instructions for filling out data forms for the DSRP are contained in the SDS 
Proiect Management System Reference Manual (publication number 90 08 18). 
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DSRP Output 

Output is always provided in off-line BCD format on tape 2, whether or not an on-line printer is attached to the 
system. The detail schedule report off-line provision allows the user to obtain multiple copies of the output without 
rerunning the program. 

A sample printout from the DSRP is presented in Figures 5 and 6. For a detailed description of the printout, refer to 
the SDS Project Management Reference Manual. 



(A)-— DETAIL SCHEDULE REPORT 



^B)—- S AMPLE D ETAIL SCHEDULE REPORT 
(c)—- PRELIMINARY SCHEDULE RUN 



DURA STARTING HRS/ NORMAL NON-UORK DAYS MaJ-ACT 
UNIT DATE DAY OPTION 



15DEC64 



4 — 4 — 4 — -©- 



4 



HOLIDAY CALENDAR DATES 



RUN ID 15MAR64 



(TV— 25JAN61 02PEB61 14*AR61 10JAN62 23FEB62 15MAY63 030CT63 25DEC64 26DEC64 



Figure 5. DSRP Parameter Page 
The letters below in the "Field" column refer to the sample printout. 



Field Contents 

A Detail Schedule Report 

B Any 79 alphanumeric characters 

C Any 68 alphanumeric characters 

D Any 8 alphanumeric characters 



H = Hours 
D = Days 
W= Weeks 
M= Months 
Blank 



Description 

Report Heading 

Project Heading 

From characters 2-80 of the type 1 input record. 

Run Heading 

From characters 13-80 of the type 4 input record. 

Run Identification Code 

From characters 5-12 of the type 4 input record. 

Type of Duration Units Code 

From character 2 of the type 2 input record. Shows type of time 
units in which durations are expressed. 



Any legal data (DDMMMYY) or blank Starting date 
or zero 



00-24 or blank 



From characters 3-9 of the type 2 input record. This is the cal- 
endar date (if any) which the program used as the start date of 
all starting activities. 

Working Hours per Day 

From characters 10-11 of the type 2 input record. Shows the 
number of hours in a work day. 
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Field 


Contents 


H 


From to 7 day codes: 




SA = Saturday 




SU = Sunday 




MO = Monday 




TU = Tuesday 




WE = Wednesday 




TH = Thursday 




FR = Friday 



Description 

Days Off per Week 

From characters 12-25 of the type 2 input record. Shows which 
days of the week have been considered as nonworking days during 
the assignment of calendar dates. 



M = Major activity print 
Blank = All activity print 



Major Activity Option Code 

From character 3 of the type 4 input record. An M indicates that 
only those activities previously defined on SSP activity input re- 
cords as major activities are printed on the Detail Schedule Re- 
port. A blank or any other character indicates that all activities 
are included on the report. 



From to 164 holiday dates, each 
of the form DDMMMYY: 

DD = Day 
MMM = Month 
YY = Year 



Holiday Calendar Dates 

From the type 3 input records. Shows which dates have been con- 
sidered as nonworking holidays during the assignment of calendar 
dates. 





DETAIL SCHEDULE REPORT 


RUN 


IC 


1?MAR64 


C0MPL 

rs~ Earl I 

?EE START 

6 T5TJTC6 4 

dVdVd 

6 15DEC64 



DATE 11 

EST 
-FINISH 

18DEC6 4" 

28DEC64 
8 

28DEC64" 
d 


JAN65 DURATION 


18 PAKE 1 


EVNT EVNT DM N ACT C DUR COST C FLOAl 
I J P CC RESP N T TOTL FF 

,-(£) r (7) Hj^ »tfft-^ Uo\ */?> 


LATEST 
START FINISH 


MILE- EVNT EVNT D 
STONE I J P 

/-fa 


0090 0091 / w r ^? ^ 
s~J r>J CC8DE1 RC0DE1 


ACTIVITY 


1 


^280^* 


15DEC64 

15UEC64 



18DEC64 

J28DEC64 
8 


^0090 0091 1 

J. G/gK 

KZS 0090 0092 


0090 0092KZJ V±J 3 

CC0DE2 RC0DE2 


2^ 

ACTIVITY 


e 

2 


400 * 


0091 0092 2 3 

CC0DE3 RC0DE3 


3 
ACTIVITY 


3 


'550 * 


18DEC64 
3 


18DEC64 
3 


28DEC64 
8 


0091 0092 


0091 0094 2 4 

CC0DE4 RC0DE4 


4 
ACTIVITY 


9 

4 


540 * 


18DEC64 
3 


1JAN65 
12 

"TJAN63 - 
12 

1JAN65 
12 

11JAN65 
Id 

6JAN65 
15 

T 


18DEC64 

3 


1JAN65 
12 


0091 0094 


0092 0093 3 5 

CC0CE5 RC0DE5 


5 
AC1 IVITY 


4 
5 


500 3 


28DEC64 
8 

28DEC64 
8 


31DEC64 
11 


6JAN65 
15 


0092 0093 


0092 0094 3 4 

CC0DE6 RC0DE6 


6 
ACTIVITY 


4 

e 


240 * 


28DEC64 
8 


1JAN65 
12 


0092 0094 


0094 0095 4 6 

CC0DE8 RC0DE8 


7 

ACTIVITY 


6 
8 


750 * 


IJAKI65 
12 

3 1JAN65 
12 


UAN65 
12 


11JAN65 
18 


0094 0095 


0093 0095 5 6 

CC0DE7 RC0DE7 


8 
ACTIVITY 


3 

7 


150 3 


6JAN65 
15 


11JAN65 
18 


0093 0095 










8TAL CBST 


OF SChEDLLEt (F?)-«~3410 































Figure 6. Detail Schedule Report 
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Field Contents 



A Detail Schedule Report 

B Any eight alphanumeric characters 



C A date of the form DDMMMYY 



D 1-4095 



C &D 



1-4095 



NAAA: 



N = any number 
AAA = any three alphanumeric 
characters 



Description 
Report Heading 

Run Identification Code 

From characters 5-12 of the type 4 input record. This code is 
printed at the top of each page of this report for identifica- 
tion of the run. 

Requested Completion Date 

If the schedule was requested in terms of a calendar date, that 
date is printed in this field. If it was requested in terms of units 
of duration, this is the calendar date which corresponds to that 
number of units from the starting date specified on the type 2 re- 
cord used in this DSRP run. 

Requested Duration 

If the schedule was requested in terms of a total project duration, 
that duration is printed in this field. If it was requested in terms 
of a calendar date, this field contains the duration corresponding 
to that date. The project start date specified on the type 2 record 
for this DSRP run is always used in this calculation. Note that 
the late start and finish times and total float calculations are 
based on this requested project duration. 

If the schedule was requested by a schedule number, neither the 
requested completion date nor the requested duration is printed. 
Instead, those two items are replaced by: 

SCHEDULE NO. XXXX 

where XXXX is the number of the schedule requested on the type 
8 input card. 

Page Number 

Assigned consecutively to each page of a schedule. Starts over 
from 1 for each requested schedule. 

I 

Identification code of starting node of the activity. From charac- 
ters 3-6 of the SSP type 5 record. 



NAAA: 

N = any number 
AAA = any three alphanumeric 
characters 

Any alphanumeric character 



1-2047 



1-2047 



Identification code of ending node of the activity. From charac- 
ters 7-10 of the SSP type 5 record. 



Duplicate I, J Differentiation Code 

From character 1 1 of the SSP type 5 record. 

M 

Identification number assigned internally to the starting node of 
the activity. 

N 

Identification number assigned internally to end node of the ac- 
tivity 



Field Contents 
M 1-4095 



N 



N = Noncontinuous 
Blank = Continuous 



0-999 



0-99999 



Q 



* = On critical path 

blank = Not on critical path 



-4095 to 4095 



Description 

Activity Number 

Numbers assigned internally in increasing order to activities after 
they are resequenced internally into topological order (that is, 
an order such that no activity is found ahead of any activity 
which precedes it in the network diagram). 

Cost Continuity Code 

From character 28 of the SSP type 5 input record. N in this 
field indicates a noncontinuous cost increase per unit of duration 
decrease (i.e., during the crashing procedure the activity could 
be considered at either its normal duration or its crash duration — 
never anywhere between these two durations). Any code other 
than N indicates a continuous linear cost/duration relationship. 
This field is meaningful only when using the crash option. (See 
discussion of schedule optimization.) 

Scheduled Duration 

The duration used for the given activity in the determination of 
the given schedule. If the crash option (schedule optimization 
option) was not used, this duration is the normal duration from 
characters 15-17 of the SSP type 5 input record. If the crash 
option was used, this duration is determined internally to be the 
optimum duration for the given activity which can achieve the 
total project duration of the given schedule. It will be greater 
than or equal to the crash duration and less than or equal to the 
normal duration. 

Scheduled Cost 

This is the cost corresponding to the scheduled duration. If the 
crash option (schedule optimization option) was not used, this 
cost is the normal cost from characters 18-22 of the SSP type 5 
input record. If the crash option was used, this figure is calcu- 
lated from the scheduled duration, based on the assumption of a 
linear relationship between the normal and crash costs and dura- 
tions. It is the minimum cost for the given activity which can 
achieve the total project duration of the given schedule. It will 
be greater than or equal to the normal cost and less than or equal 
to the crash cost. 

Critical Path Indicator 

Shows whether or not the given activity is on the critical path 
for the given schedule. An activity is on the critical path if its 
total float is zero or negative, which means that any delay in the 
completion of the activity would be expected to cause a delay in 
the completion of the total project. 

Total Float 

The amount by which the actual completion of the activity may 
be delayed beyond its earliest finish time before it causes a de- 
lay in the requested finish time of the entire project. It is calcu- 
lated as the difference between the latest finish time and the 
earliest finish time of the activity. If the total float is zero or 
negative, the activity is on the critical path. 

If the latest finish time precedes the earliest finish time, so 
that the total float is negative, the activity is on a path 
which is preventing the requested project completion time 
from being met, by the specified number of units. 
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Field Contents 
S 



0-4095 (always positive) 



A date of the form DDMMMYY or 
blank and a number 0-4095 



A date of the form DDMMMYY or 
blank and a number 0-4095 



A date of the form DDMMMYY or 
blank and a number 0-4095 



Description 

Free Float 

The amount by which the completion of an activity may be allow- 
ed to slip beyond its earliest finish time before it causes a delay 
in the earliest start time of any of the activities following it. It 
is calculated as the difference between the earliest of the earli- 
est start times of all activities immediately following the given 
activity and the earliest finish time of the given activity. 

Earliest Start Time 

The earliest time at which the activity can start, based on its 
position in the network. It is calculated as the sum of the dura- 
tions of all activities along the longest path from the start of the 
network to the start of the given activity. The time in units of 
duration is printed on the second line of activity information. 
Directly above this time is the corresponding date if a project 
starting date was specified on the type 2 input record for the run. 

Earliest Finish Time 

The time at which a given activity should be finished if it is 
started at its earliest start time. It is calculated by adding the 
activity's duration to its earliest start time. The time in units of 
duration is printed on the second line of activity information. 
Directly above this time is the corresponding date, if a project 
starting date was specified on the type 2 input record for the run. 

Latest Start Time 

The time by which the activity should start in order to be finished 
by its latest finish time. It is calculated by subtracting the activ- 
ity's duration from the latest finish time. The time in units 
of duration is printed on the second line of activity in- 
formation. Directly above this time is the corresponding date 
if a project starting date was specified on the type 2 input 
record for the run. 

If the latest start time is negative (i.e., precedes the project 
start time), the date in this field will be blank, and the time will 
be zero. 



W A date of the form DDMMMYY or 

blank and a number 0-4095 



Latest Finish Time 

The time by which the activity should be finished in order to 
avoid extending the completion time of the project beyond the 
completion date entered at the start of the run. It is calculated 
as the requested project completion time minus the sum of the 
durations of all activities along the longest path from the com- 
pletion of the given activity to the requested project completion 
date. Directly above this time is the corresponding date if a pro- 
ject starting date was specified on the type 2 input record for the 
run. 

If the latest finish time is negative (i.e., precedes the project 
start time), the date in this field will be blank, and the time will 
be zero. 



1-4095, or a date (DDMMMYY), 
or zeros, or blanks 



Milestone Time or Date 

From characters 30-36 of the SSP type 5 input record. If the 
crash option has been selected, an attempt has been made to meet 
this milestone in an optimum fashion before trying to reduce the 
total project duration. If the crash option has not been selected, 
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Field Contents 



Y # Z, Same as fields F, G, and H 
AA 



BB Any siz alphanumeric characters 



CC Any six alphanumeric characters 



DD Any 32 alphanumeric characters 



EE Blank, MET, or NOT MET 



FF 0-99999999 



Description 

this figure has had no effect on the schedule. (See discussion of 
schedule optimization.) 

Activity Identification Numbers 

These fields coniain the same information as the corresponding 
fields on the left side of the listing. They are repeated here to 
facilitate reference to the listing. 

Cost Code or Part of Activity Description 

From characters 37-42 of the SSP type 5 input record. May be 
considered as part of the activity description. 

Responsibility Code or Part of Activity Description 

From characters 43-48 of the SSP type 5 input record. May be 
considered as part of the activity description. 

Activity Description 

From characters 49-80 of the SSP type 5 input record. 

Milestone Analysis Field 

If no milestone time or date was entered for the activity on the 
SSP type 5 input record, this field will contain blanks. If one 
was entered and the earliest finish time is on or before the mile- 
stone time, the word MET is printed in this field. If the earliest 
finish time is after the milestone time, the words NOT MET are 
printed in this field. 

Total Cost of Schedule 

Sum of the costs for the given schedule of all activities making 
up the network. 



Error List 

When DSRP detects an error, it enters an error subroutine which types out a corresponding error number. The entire 
set of error numbers is defined in the Project Management System Reference Manual. 

PROGRAM ORGANIZATION DESCRIPTION 



The DSRP is a self-contained program, coded in relocatable form in the SDS META-SYMBOL language. It contains 
its own loader (card or paper tape) and, therefore, does not require a MONARCH system tape. Extensive use has 
been made of the META-SYMBOL external reference provision for defining data storage to the various subroutines in 
the program. The majority of data used by the program is located in a subroutine called COMMON. 

The program is composed of 28 subroutines connected via a main control program. This modular construction using 
subroutines provides a high degree of flexibility and facilitates ease of system maintenance. The program itself can 
determine the type of configuration on which it is operating. Array data offsets are based on the amount of storage 
available. Automatic checks are made to determine if the problem being run will fit into the computer. To handle 
as many network activities as possible, the program incorporates a self overlay feature; data is allowed to extend 
over the initial setup portion of the program during the detail schedule report generation phase. 

DSRP Storage Arrangement 

The storage arrangement for the 920 Computer version of the DSRP is shown in Figure 7. The basic program organi- 
zation is divided into three primary sections which are loaded in relocatable form into lower memory starting at lo- 
cation zero. The first section is composed of those routines which must be in the computer throughout the entire 
execution of the program. These are routines 1 through 20 (see Subroutine Roster) and require approximately 
2813 words of storage. 
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Approximate 








Location 


PHASE I (Program Initialization) 


PHASE II (Report Generation) 


Variable 






MN Vector 


10762 g 


28. 


Transfer Address 






27. 


Parameter Print Routine 






26. 


Holiday Sort Routine 


AB Vector 




25. 


Parameter Input Routine 






24. 
23. 


I/O Device Select Routine 
Magnetic Tape Setup Routine 








22. 


Parameter Control Routine 




07072g 


21. 


Main Control — Part 2 


Time Vector 


C 




06252 n 


O 

M 


Parameter 
Region 






8 

05777 o 
o 

05651 


M 
O 
N 




Binary Holidays 


Input/Output Area 








Fixed Common 


05375g 


20. 


' 


19. 


Double-Precision Binary to BCD Conversion Routine 


18. 


Decimal to Binary Conversion Routine 




17. 


Binary to BCD Calendar Data Conversion Routine 




16. 


Binary to Decimal Integer Conversion Routine 




15. 


Report Line Output Routine 




14. 


Magnetic Tape Read Routine 




13. 


Magnetic Tape Write Routine 




12. 


Paper Tape Read Routine 




11. 


Card Read Routine 




10. 


Error Routine 




9. 


Print Routine 




8. 


Detail Schedule Report Routine 




7. 


Calendar Routine 




6. 


Time Vector Routine 




5. 


Input Conversion Routine 




4. 


Duration Read Routine 




3. 


End Routine 




2. 


Delay Routine 


00000 


1. 


Main Control — Part 1 



Figure 7. DSRP Storage Arrangement 

The Common routine represents the second major section of the program. Three subsections are contained within 
Common to provide storage area for the following groups of data: 

1. Fixed Common— contains permanent data constants, scalar temporary, and short vector temporary. Approx- 
imately 108 words. 

2. Input/Output Area — buffer regions for I/O storage. Approximately 482 words. 

3. Parameter region— temporary locations for BCD parameter data, such as output comments, days-off, holi- 
days, etc. This data is later condensed and saved in fixed Common. Approximately 570 words. 

Common is followed by another section of program which can be destroyed by data after the setup phase 
(Phase I) of execution is completed. This section consists of routines 21 through 28 and occupies 950 loca- 
tions of storage. 
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During the detail report generation phase of execution (Phase II), the following three large vectors are maintained 
in core storage: 

1. MN Vector— contains the internal node numbers at the beginning and end of each activity. 

2. AB Vector— contains the normal and crash durations of each activity. 

3. Time Vector— contains the scheduled early start times of each node. (Also used alternately to store activ- 
ity durations). 

The MN and AB vectors are each as long as the total number of activities. The time vector is as long as the total 
number of nodes; but since it is also used to store the durations of each of the activities, it must be as long as the 
number of activities. Therefore, the total amount of storage needed for the three vectors is 3 times the number of 
activities. These vectors are allowed to overlap the destructible portion of the program code and also a portion of 
the parameter region. The remainder of the parameter region is used to store holiday dates in accumulative day bi- 
nary form. An internal check assures that the activity vectors do not overlap the binary holidays. 

Tape Layouts 

The format of the input tape (tape 1) is presented in detail in the appendix. This tape contains three files of informa- 
tion: 

1. Parameter File (BCD) 

2. Unscheduled Activity File (BCD) (one record per activity) 

3. Time File (Binary) (one record per schedule) 

DSRP Execution Description 

After the program has been loaded, control is transferred to Part 1 of the Main Control Routine (F.D. 1), which im- 
mediately branches to Part 2 to initiate the program's setup. 

The Magnetic Tape Setup Routine (F.D.23) is then entered. This routine rewinds tapes 1 and 2 and prepares tape 2 
for writing by erasing approximately 15 inches of tape following the load point. 

Main Control next transfers to the Parameter Control (F.D. 22), at PARCON, which in turn transfers to the necessary 
subroutines to set up parameter data. The first subroutine transferred to by PARCON is the Parameter Input Routine 
(F.D. 25) at entry point $SCAP3. The parameter file on tape 1, prepared by SSP, is read into core. At this point, all 
parameter data in the DSRP is identical to that used by the SSP. Control is now returned to PARCON. The I/O De- 
vice Selection Routine (F.D. 24) is then entered to request the input and output configuration data from the type- 
writer. A provision is incorporated in the program to place the configuration description in the permanent data re- 
gion, if desired. When this latter provision is used, no typewriter request is made. 

PARCON again returns control to the Parameter Input Routine, this time at entry $SCAP5. This entry causes param- 
eter change data to be read from cards or paper tape. The type designation of each input record is examined, and 
the data on that record is stored in its assigned locations in memory. Holidays are separated into day, month, year 
parts and stored in unsorted input order. If any changes to the holidays used by SSP are made, a complete set must 
be input. The storing of parameter data is continued until a type-8 input record is read. This record contains the 
first selected duration for which a detailed schedule is to be constructed. The type-8 record is left in the input area 
in card image form, and control is returned to PARCON. 

The Holiday Sort Routine (F.D. 26) is next entered to sort the holidays in order of increasing date. After this is ac- 
complished, control is returned to PARCON which transfers to the Run Heading and Parameter Print Routine (F.D. 27) 
to output the parameter data page. Upon return, PARCON transfers control to Main Control, Part 2. 

A check is made in Main Control to insure that the last record read was a type-8 record. If it was not, an error 
halt occurs. If the last record read was type-8, the run ID is moved from the input parameter region into Common. 
Control is then transferred to the Input Conversion Routine (F.D.5). This routine examines the variable field type-8 
input record to determine if the selected schedule has been requested using an end date, by duration in basic work- 
ing units, or by schedule number. If an end date was used, it is separated into day, month, year parts, and 
stored in Common. If basic working units or schedule numbers are used, they are stored in the year location / 
and the day and month locations are set to zero. The routine then returns to Main Control. 

F.D. denotes flow diagram number. 
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Main Control next converts various input parameters from BCD to binary and stores them in Common. A first pass 
flag, FIRPAS, is turned on to indicate that the first selected duration has not yet been processed. The BCD days- 
off are converted and stored in the binary day-off vector locations, and the number of days-off per week and num- 
ber of working days per week are computed. 

A test is made to determine the maximum location in the core memory. Working from the end of core, the offset ad- 
dress for the MN, AB, and Time vectors are calculated and stored in Common. An index bit is placed in these offset 
address instructions so that individual elements can be obtained from the various vectors by means of indirect address- 
ing. 

Next a test determines if a start date is given. If so, control is transferred to the Calendar Routine (F.D.7) at its 
setup entry location $CALE1. This entry sets up all data needed to compute calendar dates from basic working units 
or basic working units from a calendar date. Data calculated during calendar setup include: 

1. A vector containing the number of working days in each year (up to 15 years) from the start date of the 
project. 

2. A binary holiday vector containing the holiday dates in terms of total accumulative days since the start of 
the project. 

3. A vector containing the subscript of the first holiday in each year. 

4. A vector containing the number of holidays in the next years (up to 15 years). 

5. The day of the week on which the project starts. 

6. The type year in which the project starts (leap year, year after leap year, etc.). 

The precalculation of the above data makes possible the rapid calculation of dates and durations for calendar sched- 
uling of the various detail schedules. After the completion of calendar setup, control returns to Main Control, Part 1. 

At this point the storage area between the end of the binary holidays and the end of core storage is available for the 
MN, AB, and Time Vectors. It is of value to note that use of this entire area results in the destruction of a portion 
of the parameter region, as well as routines 22 through 28 (see Storage Arrangement). Although this does not affect 
the capability of the program to process the current desired set of detailed schedules, it does eliminate the ability 
to restart the problem without reloading the binary program deck. On the 920 Computer version, a complete restart 
can be made without reloading the program by a transfer to location zero, only if the total number of activities does 
not exceed the limits shown below. 



Memory 
(words) 

8,192 
12,288 
16,384 



Activities 

1195 
2559 
3923 



Main Control, Part 1 proceeds to generate the MN and AB vectors as follows: the input tape is rewound and posi- 
tioned at the beginning of the unscheduled activity file; one activity record is read; and, the BCD M and N (inter- 
nal node numbers) for that activity are converted to binary, merged into one word, and stored in the MN vector 
using the index loaded with the internal activity number, K. A similar sequence is used to store the crash and nor- 
mal durations in the AB vector. The above vector element constructions are repeated for each activity in the un- 
scheduled activity record file. 

The sign of the MN vector entries are set minus if their associated activities are of the noncontinuous type. The re- 
sulting format of the MN entry is shown below. 





Noncontinuous Indicator 








Not Used 






M 




N 





1 


11 


12 


13 
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Since the nodes are numbered continuously starting at 1, the N node of the last activity will be equal to the total 
number of nodes. Main Control, Part 1 picks up this node number and stores it in NE (number of events). 
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At this point the program enters the detail schedule generation loop. The general sequence of this loop is to read a 
selected schedule duration, develop an interpolated early node time vector, construct and print the detailed sched- 
ule, and repeat the loop until a type-9 input record is read. 

The first routine entered in this loop is the Duration Read Routine (F.D,4). This routine reads the schedule duration 
or number select record from paper tape or cards, converts the variable field image using the Input Conversion Rou- 
tine, and computes either the total number of working units in the project's total duration if an end date is given or 
the end date if total number of working units in the project are given. If no start date is given and project duration 
is specified in basic units, blanks are stored in the end date locations. Logic is provided to handle basic working 
units in hours, days, weeks, and months. Since the first project end date, duration, or schedule number will have 
already been read and converted prior to the first entry to this routine, these phases are bypassed when the FIRPAS 
indicator is on. 

The next routine entered is the Time Vector Routine (F.D.6). At the time of entry to this routine, the input tape will 
be positioned just in front of the binary time vector file. This file contains the early times for each node at each 
break point in the Total Project Cost vs. Project Duration Curve. It is the function of the Time Vector Routine to 
generate a set of specific early node times for the selected project duration. 

If the selected project duration is greater than the All Normal project duration, an error note is typed, and the pro- 
gram is allowed to continue, using the All Normal early node time vector. If the selected project duration is smaller 
than the All Crash project duration, an error note is typed, and the time vector for the completely crashed solution 
is used. 

Normally, the selected duration falls within these limits. If the selected duration does not fall exactly on the dura- 
tion time at one of the break points, it becomes necessary to interpolate for a time vector. This is accomplished by 
reading from tape the time vector above (toward normal) and below (toward crash) the selected project duration into 
the left and right halves of the time vector. The interpolated time vector is constructed by examining the above and 
below times at each node to determine if they are the same. If they are the same, this time is used for the current 
node in the interpolated time vector; if they are not, the node time for the lower vector is increased by an amount 
equal to the difference between the selected total project duration and the lower total project duration. This pro- 
cedure is repeated for each node in the network. No interpolation is allowed if the schedule is selected by sched- 
ule number. The Duration Read Routine then returns control to Main Control. 

After the time vector has been constructed, the program is ready to compute the various parameters needed to make 
up the detailed schedule report. The routine used for this function is the Detail Schedule Report Routine (F.D.8). 
This routine first constructs a vector in the left half of the time vector containing the durations of each activity. 
There are three possible forms these durations can take: 

1. Normal Duration (B) — used when the time available between the activity's end nodes is greater than the 
normal duration. 

2. Crash Duration (A)— used when an activity has been shortened as much as possible. 

3. Semi-Crashed— used when the time available is greater than crash, but less than normal. In this case the 
duration is set equal to the time available. 

If an activity is discontinuous, its duration is always set to the crash duration when the time available is less than 
the normal duration. 

Using the vector of durations just developed, the routine next constructs a vector of late node times by working 
backward through the network, starting at the last node. This vector is stored over the AB vector, which will later 
be rebuilt. 

When the early and late node times for the complete project have been computed and stored in memory, it is possible 
to construct the detailed schedule record for each activity by loading the unscheduled activity information for that 
activity alone into memory from tape. To initiate this operation, the input tape from SSP is rewound and positioned 
in front of the unscheduled activity file. 

Next, the DSRP Print Routine (F.D. 9) is entered at $SRPINIT. Thisentry initializes the line and page countersand returns. 

The double-precision total cost accumulator is cleared, and the first unscheduled activity record is read from tape in 
the BCD mode. The type code for the unscheduled activity records is type 5. If the code read is not a type-5 code, 
it is assumed that all activities have been processed. The input tape is rewound in preparation for processing the 
next detail schedule, total cost is output using the DSRP Print Routine at entry $TOTCPR, and control is returned to 
Main Control, Part I. 
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If the record code is a type-5, an unscheduled activity record has just been brought into storage. The record is now 
ready for scheduling. A test determines if the activity is an internal or milestone dummy. If it is not, the routine 
proceeds to convert normal and crash cost and durations to binary. The internal activity number, K, is loaded into 
the index register and used to rebuild the AB vector entry for the current activity. 

Free float and activity duration are next computed and stored ready for output. Late start and early finish in basic 
units are computed and stored ready for output along with early start and late finish in basic units. Total float is 
calculated and checked for critical ity. If found critical, an indicator is stored ready for output. The cost of the 
activity is next computed and stored. This cost is added in double precision to the total cost of the project. 

If a start date is given, early start, late start, early finish, and late finish are converted to calendar dates and also 
stored ready for output. Hour-, day-, week-, and month-type working units are considered in this conversion. If 
no start dates are given, the calendar dates for these four times are set to blanks. 

A check determines if the end of this activity has a milestone date associated with it. If so, another check deter- 
mines whether or not the milestone is met, and an indicator is set accordingly. If the milestone is given in basic 
units and a start date has been provided, the milestone time will be converted to a calendar date. 

Before the output routine for the shceduled current activity is entered, two checks are made: 

1. Should only major activities be output? 

2. If so, is this a major activity? 

Based on the results of this test, an activity is either output or not output. The entry to the DSRP Print Routine to 
produce the schedule activity record is $SOUTSR. 

The program now reads the next activity and again checks for the 5 code as previously discussed. 

After all activities have been processed for the current selected date, control is returned to Main Control, Part I, 
and a new selected schedule duration is brought in through the Duration Read Routine. When a type-9 record is read 
by Duration Read, an end statement is typed and the program halts. 
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3. PROGRESS EVALUATION PROGRAM 



This section describes the SDS Progress Evaluation Program (PEP), the third program in the SDS Project Management 
System Series. To provide management with current project status information, this program should be run cyclically 
for the duration of a project. 

PROGRAM FUNCTION 

The Progress Evaluation Program (PEP) provides management with an effective means for determining the current status 
of a project at various times during its execution. The program points out those activities that are ahead or behind 
schedule, on or off the critical path, and how these activities affect the total status of the project. Also, summary 
information defining the rescheduling history of these activities is reported. 

Other activity information provided includes activity descriptions, cost codes, and responsibility codes. The status 
of the entire project is reported in addition to the status of the individual activities. Such questions as: "When is the 
project scheduled to finish?", "When is the project expected to finish?", and "How much is it ahead or behind 
schedule?" are answered in the Project Status Evaluation Report generated by PEP. 

PEP maintains an activity status file tape throughout the duration of the project. Initial information for this file is 
obtained from the output tape of the Detail Schedule Report Program (DSRP). With each progress evaluation run, 
the activity status file is updated to reflect the most current reporting information from the various activity managers. 
This updated tape is then used as input for the next progress evaluation run. The above procedure is repeated, cy- 
clically, until the project is completed. 

Provisions are incorporated in the program to accept two types of status changes: activity changes and network 
changes. An activity change refers to all data changes pertaining to individual activities, such as scheduled start 
and finish dates, actual start and finish dates, scheduled duration, etc. Network changes refer to the addition, de- 
letion, and replacement of activities to the project network. 

The assignment of the original activity scheduled start and finish dates is made automatically by PEP. These dates 
are obtained from the early start and early finish activity information on the DSRP output tape. The user has the op- 
tion of overriding any of these automatic initial assignments during the various progress runs. 

Since the DSRP output tape can contain more than one project schedule, the user must specify which schedule on the 
tape he desires to select for the project. This specification is accomplished by a type-in. Two methods are used to 
specify the selected schedule from the DSRP output tape. 

One method defines the selected project schedule by completion date and the other by schedule number. Completion 
date is used to specify the schedule for PEP when the schedules from DSRP have been requested by an end date or 
duration. A schedule number is used when the schedules have been requested from DSRP by schedule number. No 
schedule interpolations are made by PEP. Only those schedules on the DSRP output tape are available for assignment 
as the selected project shedule. 

The Detailed Schedule Report used for initial PEP input must be generated with calendar dating. The basic units used 
by DSRP in developing this input schedule can be in terms of hours, days, weeks, or months. 

PEP uses two schedules to evaluate the project's status. One schedule is constructed internally by PEP, based on the 
effective date of the progress evaluation run, actual reported start and finish information, and scheduled activity 
durations. This schedule is called the expected schedule and is compared against the "scheduled" schedule maintained 
on the activity status file. From this comparison the various activity status parameters are computed. 

PEP USAGE 

The minimum configuration used by PEP consists of 8192 words of core, two magnetic tape units, paper tape and type- 
writer input, and an off-line printer. Its operational capabilities automatically expand as the configuration is in- 
creased. Provisions are made for operating in conjunction with card reader input and on-line printer output. Th< 
number of activities processed by the program can be increased by adding more core storage to the configuration. 
The maximum number of activities (NA) handled by the program is a function of the total amount of storage in the 
computer and the ratio of activities to node points (R A ,-). The equation for NA is given below. 
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Figure 8. Project Status Evaluation Report 
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For a value of R^E equal to 1.8, the maximum number of activities handled by the program on an SDS 920 Computer 
are 



Total Core Number of 
Storage Activity 



8, 192 
12,288 
16,384 



1585 
3200 
4095 



These figures are slightly less for SDS 910 Computer operation due to the use of programmed operators. A maximum limit 
of 2047 event nodes can be handled by any of the above configurations, independent of the number of activities. 

Loading Procedures 

The procedures for running PEP and instructions for filling out data forms for PEP are contained the the Project Man- 
agement System Reference Manual (publication number 90 09 18). 

PEP Output 

Output is always provided in off-line format on tape 1, regardless of whether or not an on-line printer is attached 
to the system. Figure 8 shows a sample PEP printout. The letters below in the "Field" column refer to the sample 
printout. 



Field Contents 



Project Status Evaluation Report 
Date: DDMMMYY 



Any alphanumeric characters or date 



Date: DDMMMYY 



1-9999 



Any 71 alphanumeric characters 



Any 71 alphanumeric characters 



Description 
Report Heading 

Effective Date of Run 

From characters 12 through 18 of the type-C record. This is the 
date as of which the input information is to be considered cur- 
rent. It is used in the calculation of the predicted and actual 
status of each activity. 

Run Identification 

From characters 4 through 1 1 of the type-C input record. This 
code is printed at the top of each page for identification of the 
run. 

Scheduled Project Finish Date 

Date on which the last activity of the network is currently 
scheduled to finish. 

Page Number 

A number assigned sequentially to each page of the report. 

First Line of Project Heading 

From characters 2 through 72 of the type-A input record. Proj- 
ect identification information. 

Second Line of Project Heading 

From characters 2 through 72 of the type-B input record. More 
project identification information. 
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Field Contents 



Date: DDMMMYY 



AHEAD 0-4095 HOURS 
DAYS 
WEEKS 
MONTHS 

or 

BEHIND 1-4095 HOURS 
DAYS 
WEEKS 
MONTHS 



Description 

Estimated Project Finish Date 

Current value of the finish date of the last activity of the network. 

Project Status 

Difference between the scheduled project finish date and the 
estimated project finish date in the type of units specified on 
the type-2 input record to SSP. 



NAAA: 



N = Numeric 

AAA = Three alphanumeric 
characters 



I 

Identification code of starting node of the activity. 



M 



N 



NAAA: 

N = Numeric 

AAA = Three alphanumeric 
characters 

-4095 to +4095 or blank 



O 



0-4095 



0-4095 



Q 



0-4095 



Identification code of ending node of the activity. 



Total Float 

The amount of time by which the actual completion of the ac- 
tivity can be delyed after its earliest finish time before it causes 
a delay in the scheduled project finish date. It is calculated as 
the difference between the latest finish date and the earliest 
finish date, in the units specified on the type-2 input record to 
SSP. If the latest finish date precedes the earliest finish date, 
this field will be negative. If the activity has been reported as 
finished, this field will contain a blank. 

A negative total float indicates that the activity is on a path 
that will prevent the scheduled project finish date from being 
achieved. 

Scheduled Activity Duration 

The duration for the given activity used in the determination of 
early and late start and finish dates and of total project dura- 
tion. This amount is in the units specified on the type-2 input 
record to SSP. On the initial PEP run for the project, this field 
is initialized as the duration used for the given activity in the 
schedule that was selected from the DSRP output tape. It can 
be changed on any PEP run using characters 26 through 29 of the 
type E input record. 

Actual Activity Duration 

The difference between the activity's actual finish date and its 
actual start date, as specified on the type-E input records to PEP. 
The units are the same as those specified on the type-2 input 
record to SSP. 

Duration Difference 

The difference between the activity's scheduled duration 
and its actual duration. 
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Field Contents 



Date DDMMMYY 



Date (DDMMMYY) or STARTED 



Date: DDMMMYY 



Date: DDMMMYY 



Description 

Schedule Start Date 

The date on which the activity is scheduled to start. On the 
initial PEP run, this field is initialized as the earliest start date 
from the selected schedule of the DSRP output, unless changed 
by input of a type-E record. It can be changed on any PEP run. 
Note that this field is not automatically changed as a result of 
duration changes, actual start and finish reports, etc. It must 
be changed specifically, using characters 12 through 18 of the 
type-E input record. Actual start dates are compared with this 
field to determine by how many units the activity was actually 
started ahead of or behind schedule. 

Earliest Start Date 

If an actual start date has been reported for an activity on either 
this run or on a previous PEP run (on a type-E PEP input record), 
The word STARTED is printed in this field. If not, this is the 
earliest date on which the activity can start, based on its posi- 
tion in the network and on the effective date of the run. 

It is the date corresponding to the time which is determined as 
follows: 

The sum of the durations (actual for completed activities and 
scheduled for noncompleted activities) along the longest path 
to each node is calculated. That sum is assigned as the time 
for that node, unless it corresponds to a date prior to the ef- 
fective date of the run, in which case the time corresponding 
to the effective date is assigned as the time for the node. 
This means that no earliest start dates can precede the effec- 
tive date of the run. This modified node time assignment is 
also used during the calculation of the longest paths to all 
succeeding nodes. 

The earliest start date may not be modified directly with input 
data. It is recomputed during every PEP run. 

Latest Start Date 

If an actual start date has been reported for the activity on either 
this run or a previous PEP run, that start date is printed in this 
field. If not, this is the date by which the activity should start 
in order to be finished by its latest finish date. It is calculated 
by subtracting the activity's scheduled duration from its latest 
finish date. 

The latest start date may not be modified directly with input data. 
It is recomputed during every PEP run. 

If the latest start time is negative (i.e., precedes the project 
start time), this field will be blank. 

Scheduled Finish Date 

The date on which the activity is scheduled to finish. On the 
initial PEP run, this field is initialized as the earliest finish 
date for the activity from the selected schedule of the DSRP out- 
put. After that, it can be changed on any PEP run. Note that 
this field is not automatically changed as a result of duration 
changes, actual start and finish reports, etc. It must be changed 
specifically using characters 19 through 25 of the type-E input 
record. Predicted finish dates (earliest finish) are compared 
with this field to determine by how many units the activity was 
actually finished ahead of or behind schedule. 
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Field Contents 



V 



Date (DDMMMYY) or FINISHED 



W 



Date: DDMMMYY 



X 0-9999 (plus or minus) 



0-9999 (always positive) 



AA 0-4095 (plus or minus) 



Description 

Earliest Finish Date 

If an actual finish date has been reported for an activity on 
either this run or a previous PEP run (on a type-E PEP input rec- 
ord), the word FINISHED is printed in this field. If not, this is 
the date on which a given activity should be finished if it is 
started at its earliest start time. It is the date corresponding to 
the time that is calculated by adding the activity's scheduled 
duration to its earliest start time. The earliest finish date may 
not be modified directly with input data. It is recomputed dur- 
ing every PEP run. 

Latest Finish Date 

If an actual finish date has been reported for the activity on 
either this run or a previous PEP run, that finish date is printed 
in this field. If not, this is the date by which the activity 
should be finished in order to avoid exceeding the scheduled 
completion date of the project. It is the date that corresponds 
to the difference between the project scheduled completion time 
and the sum of the scheduled durations of all activities along 
the longest path from the finish of the given activity to the proj- 
ect scheduled completion time. 

If the latest finish time is negative (i.e., precedes the project 
start time), this field will be blank. If the latest finish date pre- 
cedes the earliest finish date, a negative total float will result. 

Total Slip 

The accumulated amount of change in the scheduled finish date 
since the first PEP run. Each time an activity's scheduled fin- 
ish date is changed (using characters 19 through 25 of the type- 
E input record), the difference between the old scheduled finish 
time and the new scheduled finish time is added to the total slip 
accumulated for that activity since the initial PEP run for the 
project. This new total slip is written onto the activity status 
output file on magnetic tape and is the input to the next PEP run. 
Changes to scheduled finish dates introduced on the initial PEP 
run for the project do not increase the total slip. Note that the 
total slip accumulation is reduced if the new scheduled finish 
date is earlier than the old scheduled finish date. 

Number of Slips 

The accumulated number of extensions of the scheduled finish 
date since the first PEP run. Each time a scheduled finish date 
is changed to a later date (using characters 19 through 25 of the 
type-E input record), the number of slips accumulated for this 
activity since the initial PEP run is increased by 1. The number 
of slips is written onto the activity status output file on magnetic 
tape and is input to the next PEP run. 

Changes to scheduled finish dates introduced on the initial PEP 
run for the project do not increase the number of slips. If the 
scheduled finish date is changed to an earlier date, no change 
is made in the number of slips. 

Predicted Status 

This number is a prediction of how far ahead of or behind sched- 
ule an unfinished activity will finish. For a finished activity, 
it will be zero. For an unfinished activity, it will be the dif- 
ference between the scheduled finish date and the earliest finish 
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Field Contents 



AA (cont.) 



Description 

date. A plus sign indicates a prediction that it will finish ahead 
of schedule. A minus sign indicates a prediction that it will fin- 
ish behind schedule. 



BB 



0-4095 (plus or minus) 



cc, 

DD, 
EE 



FF 



Same as fields L, M, and N 



Any six alphanumeric characters 



GG Any six alphanumeric characters 



HH 



Any 32 alphanumeric characters 



Actual Status 

This number shows how far ahead of or behind schedule an ac- 
tivity was reported to have actually started or finished. It is 
set to zero when the activity is 

1. started or finished on schedule. 

2. not started and not scheduled to have started. 

3. started, not finished, and not scheduled to have finished. 

If the activity has not started, but is scheduled to have started, 
its actual status is set to the difference between its scheduled 
start time and the effective time of the current run. 

If the activity has not finished, but is scheduled to have finished, 
the actual status is set to the difference between the scheduled 
finish time and the effective time of the current run. If the ac- 
tivity has finished, the actual status is set to the difference be- 
tween the scheduled finish time and the actual finish time. 

In any of the above cases, a plus sign indicates that the activity 
is on or ahead of schedule. A minus sign indicates that it is be- 
hind schedule. 

Activity Identification Numbers 

These fields contain the same information as the corresponding 
fields on the left side of the listing. They are repeated here to 
facilitate reference to the listing. 

Cost Code or Part of Activity Description 

From characters 37 through 42 of the SSP type-5 input record, or 
from characters 44 through 49 of the PEP type-E input record. 
Can be used as a sort key for PEPSORT. 

Responsibility Code or Part of Activity Description 

From characters 43 through 48 of the SSP type-5 input record, or 
from characters 50 through 55 of the PEP type-E input record. 
Can be used as a sort key for PEPSORT. 

Activity Description 

From characters 49 through 80 of the SSP type-5 input record, or 
from characters 14 through 45 of the PEP type-F input record. 



The updated activity status file is written on tape 2 in BCD. A detailed layout of this tape is in the appendix. This 
tape is used as input to PEP on the next progress evaluation, at which time it is mounted on unit 1. Tape 2 also pro- 
vides the input data to the PEPSORT program. For input to PEPSORT this tape is mounted on unit 2. 

Error List 

Upon detection of an error, PEP enters an error subroutine that types an error number. The meaning of these error 
numbers is defined in the Project Management System Reference Manual. 

PROGRAM ORGANIZATION DESCRIPTION 



PEP is a self-contained program, coded in relocatable form in SDS META-SYMBOL language. It contains its own 
loader (card or paper tape) and, therefore, does not require a MONARCH system tape. Extensive usage has been 
mnria r\( tj-ig META - SYMBOL externa! reference Tovision for definin n data si n v nr, Q to the various subroutines in th( 
program. The majority of data used by the program is located in a subroutine called Common. 
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The program is constructed In two segments. A mutual Common area is shared by these two segments. Furthermore, 
each segment has an exclusive storage area that is not shared. Segment I contains the initial activity status file 
tape setup, parameter input processing, and network construction logic. It is made up of 32 subroutines. Segment II 
is made up of 30 subroutines and contains the necessary logic to accomplish activity posting, status evaluation, and 
progress evaluation report output. 

The program determines the type of configuration on which it is being run and computes array data offsets based on 
the amount of storage available. Automatic checks are made to determine if the problem being run will fit into the 
computer storage available. 

PEP Storage Arrangement 

The storage arrangement for the SDS 920 Computer version of PEP is shown in Figure 9. The S or F in front of the vari- 
ous subroutine numbers denotes first (F) or second (S) segment. 

Segment II is loaded into the computer first and written on tape 2 minus its Common (SOI), Magnetic Tape Read (S02), 
and Segment II Load (S03) routines. At load time the relocatable binary addresses are converted to absolute addresses. 
All external references are also assigned absolute binary addresses. Note that although subroutines SOI, S02, and 
S03 are not written on tape 2 with the remainder of the routines in segment II, all external references between the 
two groups of routines are already set up. 

After segment II has been written on tape 2, segment I is loaded into the computer by the loader, which is in high 
core memory. Segment I is loaded at the same location as segment II and contains identical copies of subroutines 
SOI, S02, and S03 (see Figure 9). An interface between segments I and II has now been set up, since all external 
references by segment II to routines SOI, S02, and S03 are identical to external references to F01, F02, and F03. 

Control is next transferred to Segment I Control Control (F04) . After the execution of segment I, the Segment II Load 
Routine (F03) is entered. This routine loads segment II from tape 2 using the Magnetic Tape Read Routine (F02) . Seg- 
ment II is loaded just above F03 and, therefore, does not interfere with the loading routine's operation. After seg- 
ment II has been loaded, transfer is made to Segment II Control (S04) and the remainder of the program is executed. 

A number of data overlaps are made during various phases of both segments I and II. The data storage arrangements 
during these various phases are discussed under "PEP Execution Description." 

Tape Layouts 

The layout of the input file to PEP on the initial progress run is identical to the layout of the Detailed Scheduled 
Report written off-line by DSRP. On subsequent runs, the activity status file is used as input. This file is written 
on tape 2 by PEP during the previous progress run. Also on this tape is the project parameter file which contains 
total project data, such as start date, units type, days-off, holidays, etc. The parameter file precedes the activity 
status file. 

Detailed layouts of both the parameter file and the activity status file are in the appendix. 

PEP Execution Description 

After segment II has been loaded on tape 2 and segment I into core memory, the loading program transfers control to 
Segment I Control (F. D. F04) . 

Segment I Control enters the I/O Device Selection Routine (F. D. F06) at entry $SCAP2. This routine requests the in- 
put and output configuration description from the typewriter. The program can place the configuration description 
in the permanent data region, if desired. When this provision is used, no typewriter request will be made. 

Control is next transferred to the Segment I Setup Routin (F07), which determines the extent of core and calculates 
the vector offsets used by segment I. These vectors are illustrated at the top of the PEP storage map shown in Fig- 
ure 9. During the different phases of segment I execution, the available storage area is assigned for various vector 
usage. 

There are basically three major phases to segment I: 

1. A parameter file preparation phase 

2. An internal topological sort phase 

3. A network update and tape sort phase 
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During the initial progress evaluation run, there is an additional phase for preparation of the initial activity status 
file from the DSRP output tape. 

During the topological sort phase, three large vectors are maintained in memory to define the project's network struc- 
ture. These vectors are called the abbreviated activity records. The BCD I, J, and Duplication Codes are stored in 
these vectors, along with other brief indicator data. Each of these vectors occupies a third of the storage space 
available. 

After completion of the topological sort, a vector (called the successor vector) is stored over the miscellaneous ab- 
breviated activity record (Dublication Codes). A vector (called the new MN vector) is set up over the I abbrevi- 
ated activity record. The J abbreviated activity record space is allocated to the storage of three groups of data. The 
areas for the storage of these groups are called the selected area, the sequenced area, and the record storage area. 
It is the function of the Segment I Setup Routine to set up addresses referring to the above data. 

After the Segment I Setup Routine has been executed, tape 2 is position after its first record, which contains seg- 
ment II. Subroutine First Run Request (F05) is entered at FRSTRUN to request (from the typewriter) it this is an ini- 
tial progress evaluation run. If a yes (Y) answer is received, subroutine Initial Input Tape (F09) is entered to prepare 
the initial activity status and parameter files from data on the DSRP output tape. If a no (N) answer is given by the 
user, this subroutine is skipped. 

Initial Input Tape reads parameter and holiday information from the DSRP tape and constructs a parameter file on 
tape 2, just behind segment II. Next, the Schedule Request Routine (F22) is entred to request the end date or num- 
ber of the schedule from the DSRP tape to be used as the project schedule. After receiving an answer from the type- 
writer, Initial Input Tape searches the tape for the requested schedule. 

When the requested schedule is found, it is read into memory, one activity at a time. Early start and finish dates 
are assigned as schedule start and finish dates for the current activity. The schedule duration for the activity is as- 
signed the value for duration contained on DSRP output tape. This data is then written on tape 2 behind the param- 
eter file as the activity status record for the current activity. 

The above procedure is repeated for each activity in the project. The first word of each activity status record con- 
tains a type 2 identification code. A blank activity status record, containing a type-9 code, is written on tape after 
the last activity has been processed. 

Next, a statement is typed to the user stating that if tape 1 is to be saved, it should be replaced with an available 
tape. The program halts after this request and waits for a run command. After returning to run status, tape 1 is re- 
wound and the parameter and activity status files are copied onto it from tape 2; at this point the status of tapes 1 
and 2 is identical to what it would be if this were a subsequent progress evaluation run. Initial Input Tape returns 
control to Segment I Control. 

The program now executes the various routines required to update the project's network structure. The first of these 
routines is the Initial Abbreviated Activity File Routine (F12); it inserts the BCD I, J, and Dupe Code activity desig- 
nations from the previous run's network configuration into the abbreviated activiy records (see Figure 9). 

The next routine entered is the Network Change Routine (F13), which reads the type D network change records into 
memory from cards or paper tape. Each is tested to determine if it contains an addition (new), deletion, or replace- 
ment to the network. The I, J, and Dupe Codes of new activities are placed at the end of the abbreviated activity 
records. Deletions are flagged, and replacements inserted over the activities to be replaced. A count cf the number 
of activities in the new configuration is generated during this posting loop. 

When a non-network change input record is encountered, tape 1 is rewound and positioned at the beginning of the 
activity status file from the previous progress evaluation run. Tape 2 is already positioned for writing the activity 
status file for the new network configuration in unsorted order. The following general procedure is used in generat- 
ing the new file on tape 2. 

An activity status record is brought into memory from tape 1 and checked against its corresponding abbreviated ac- 
tivity entry to determine if it is to be replaced or deleted. If it is to be replaced, the I, J, Dupe Code from the 
abbreviated activity record is moved into the activity status record over the old I, J, Dupe Code, and the new rec- 
ord is written on tape 2. If the activity has been deleted, it is not written on tape 2. 

After all retained and replaced activities have been written on tape 2, the new activities are posted. The activity 
status records for these new activities are set to blanks, except for the I, J, Dupe Code and activity number entries. 
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Data for these new activities is supplied during the activity change phase of segment II. A 9-code record is written 
after the last new activity record on tape 2 to flag the end of the activity status file. 

A test is made to determine if the current run is an initial progress evaluation run. If it is not an initial run, the com- 
ment "SAVE TAPE 1 IF TAPE SAVE REQUIRED" is typed. The program halts and waits for a continue command. When 
this occurs, control is returned to Segment I Control. 

The next routine entered is the Topological Sequence Control Routine (F15) which sets up addresses for the various 
vectors needed during the topological sort and tape sort phases. The Topological Sequence Control routine first sets 
up addresses of various data arrays, to take advantage of the amount of core storage available. This routine also 
computes the number of records that can be handled in the available core storage during each pass of the unsorted 
activity file. Topological Sequence Control next executes a number of subroutines. After all these subroutines are 
executed, the result is a magnetic tape file of activity records in a sequence such that no activity precedes any of 
its predecessors. This tape file contains internally assigned node numbers, M and N, and a new activity number K. 
All three of these numbers are assigned in an ascending sequence, based on the topological ly ordered activity 
records. 

The first of the sequencing routines entered is Unsorted Activity Number Assignment Routine (F 16) . This routine 
stores a record number in the first 12 bits of each entry in the successor vector. This number is assigned in ascending 
order, based on the origninal input sequence of the original activities and network changes. 

The Topological Sort Routine (F18) is executed to assign each of the activities to a position in a thread such that ev- 
ery item on the thread follows all its predecessor activities. This is accomplished by creating an arbitrary initial 
thread, then moving along this thread, examining the I and J cf each activity to find if the activity has successor 
activities that are assigned to the thread ahead of the given activitiy. When one is found, it is moved to the end of 
the thread, from which position it will later be examined to determine if it still follows all its predecessors. If it 
does not, it is moved to the end again. This process continues until the last activity of the thread has been examined 
without finding any succeeding activities ahead of it. Activities are not physically moved from their I, J, Duplica- 
tion Code sequence during this process. Instead, the last 12 bits of each entry in the successor vector is set to con- 
tain the number of the activity immediately succeeding it in the thread. 

Once the topological thread has been determined, it is possible to assign new identification numbers M and N to the 
nodes based on their order of appearance within the thread. This is accomplished by the execution of the M and N 
Assignment Routine (F 1 9) . It should be noted that all starting nodes (nodes with no activities leading into them) are 
assigned the number 1, and all ending nodes (nodes with no activities leading out of them) are assigned the highest N. 

The next task is to sort the activity status records on tape into the newly determined topological sequence. Since 
the program must operate on a minimum configuration having only two tape units, the sort is required to make multi- 
ple passes through the unsorted activity status file, obtaining as many records as possible (n records) each pass, and 
writing them on the sorted activity status file tape. This is accomplished by extracting the next n items from the 
successor vector (as defined by the thread) and moving them into the selected area. The number of the activity in 
the sorted sequence is now inserted in the last 12 bits of the extracted words. The first 12 bits of these words retain 
the number of the activity in the original sequence. These extracted words are now sorted on the original sequence 
number and stored into the sequenced area shown in Figure 9. They are now in the same sequence as the records in 
the unsorted activity status file. 

Since these records are not contiguous, a complete pass through the unsorted file is required to read each group of 
n activity status records. As the records are read, their input locations are calculated based on their new sequence 
number; thus, after each pass storage will contain the next n records in the assigned topological sequence. They 
are now written on the sorted activity status file tape. As many passes are made through the unsorted file as are re- 
quired to place all the records in their new sequence in the sorted file. 

Control is returned to Segment I Control which rewinds tape 2 and transfers to the Segment II Load Routine. This 
routine brings segment II into memory and transfers to the Segment II Control Routine (S04) . 

The first subroutine executed by segment II is the Activity Change Routine (S06) . This routine updates the data con- 
tained in the activity status file with current reporting information entered on E- and F-type cards or paper tape 
records. 

The method used for posting this information is 

1. Tape 1 is assigned as the input tape, and tape 2 is assigned as the output tape. 

2. The parameter file is read into core from the input tape and written on the output tape. 
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3. E and F records are read from cards or paper tape until the available buffer area for this data has been 
filled. 

4. An activity status record is read into memory from the input tape. 

5. The Post Change Routine (S07) is entered. This subroutine posts all E and F record information, contained 
in the buffer area, belonging to the activity status record currently in memory. 

6. Items 4 and 5 are repeated until all activities on the input tape have been updated by the E- and F-type 
records in the buffer. 

7. If there are more E and F records to be posted, they are stored in the buffer region until it is again filled. 

8. The input tape is assigned as the output tape, and the output tape assigned as the the input tape. 

9. Steps 1 through 6 are repeated. 

The above sequence is repeated until all activity data is posted. A check is made to determine if the last pass 
through the posting loop left the updated activity status file on tape 1. If so, the routine returns to Segment I Con- 
trol. If not, tape 2 is copied cnto tape 1 before the routine returns. 

Segment II Setup Routine (S09) is entered next in order to set up various data used by segment II. The project's pa- 
rameter file is brought into core from tape 1. Data contained in this file is converted from BCD to binary and moved 
to various working storage areas. Vector offsets used by segment II are computed and extent of storage checks are 
made. The Calendar Routine (SI 7) is entered at its initialization entry $CALEI. Upon return from the Calendar in- 
itialization, the effective date is converted to basic units and the routine returns to Segment II Control. 

Tape 1 is now positioned at the beginning of the activity status file in preparation for the generation of the early start 
times by the Forward PERT Routine (S 10). This routine constructs the vector of expected early start times based on cur- 
rent activity status, as defined by actual start and finish information, future scheduled activity durations, and the 
effective date of the current progress evaluation run. 

Three vectors are generated by the Forward PERT Routine. These vectors are 

1. MN vector — contains the node number at the beginning and end of each activity. 

2. Durtas vector — contains information needed to compute late node times. If an activity is already started, 
its entry in this vector will be its actual start time in basic units. If the activity is not started, its sched- 
uled duration is entered. When a duration is entered, a bit is merged into position zero. 

3. Time vector — contains early node times in basic units in right 12 bits of word. 

The activity status file is processed, one record at a time, in constructing the above records. 

The Reverse PERT Routine (S 11) is entered next. This routine works backward through the network to determine the 
latest time at which the various nodes can occur, without affecting the finish time of the total project. These late 
finish times are stored in the left 12 bits of the various elements of the time vector. 

It is now possible to evaluate the current status of each activity in the project by reading the activity status record 
for one activity at a time from tape 1. The updated activity status records can then be written on tape 2. In prep- 
aration for this updating, Segment II Control transfers to the Magnetic Tape Setup Routine (SI 9) which rewinds tapes 
1 and 2, and prepares tape 2 for writing. 

Control is next transferred to the Status Evaluation Routine (S12). This routine reads one activity status record at a 
time from tape 1. The status of this activity is then computed by processing the various vectors, previously mentioned 
against the schedule information contained in the record. An updated record for the activity is then written on tape 
2. The above is repeated for each activity in the network. After all activities have been evaluated, the routine 
computes an evaluation of the total project and stores parameters describing its status in Common. A return to Seg- 
ment II Control is then executed. 

Using the Utility Package (S25) at entry SETT1, tapes 1 and 2 are once again rewound, but this time tape 1 is pre- 
pared for writing. Control is then transferred to the Print Control Routine (S13) . Print Control enters the Print Ini- 
tialization Routine (S14) at entry PEPINT. This routine initializes the page and line counters and returns. 

The first activity status record is brought into memory from tape 2. Checks are made to determine if "major activity" 
and/or "future activity" only printouts are desired. If so, the activity in memory is checked to determine if it meets 
these specifications. The Print Evaluation Routine (S15) is entered, and the status report lines for the current activity 
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are output - on tape 1 and the line printer (if requested). The above sequence is repeated until all activities have 
been processed. The routine then returns to Segment II Control. 

The End Routine (S23) is the last routine entered. This routine types the word END, places an end-of-file mark on 
tape 1, rewinds tapes 1 and 2, and halts to terminate the program. 
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4. PROGRESS EVALUATION SORT PROGRAM 



This section describes the SDS Progress Evaluation Sort Program (PEPSORT), the fourth in the SDS Project Management 
Series. It receives its input from the Progress Evaluation Program (PEP). 

PROGRAM FUNCTION 

The Progress Evaluation Sort Program (PEPSORT) sorts the activity status file from the Progress Evaluation Program. 
The output of the program is a sorted off-line magnetic tape and, if an on-line printer is available, an on-line print- 
out. The activity status file, described in detail in the appendix, may be sorted on any of 19 keys and up to 13 keys 
in a single run. 

PEPSORT USAGE 



The minimum configuration used by PEPSORT consists of 8192 words of core, two magnetic tape units, paper tape and 
typewriter input, and an off-line printer. It automatically expands its operational capabilities as the configuration 
increases. Provisions are also made for operation with card reader input and on-line printer output. The number of 
activities processed by the program can be increased by adding more core storage to the configuration. 

The maximum number of activities handled by the PEPSORT program operating on an SDS 920 Computer is 

Memory 

(words) Activities 

8, 192 2864 

12,228 3375 

16,384 5461 

These figures are slightly less for SDS 910 Computer operation due to the use of programmed operators. 

Loading Procedures 

The procedures for PEPSORT operations are presented in the Project Management System Reference Manual (publica- 
tion number 90 08 18). Instructions for filling out data forms for PEPSORT are also contained in the Reference Manual 

PEPSORT Output 

Output always consists of an off-line BCD file on unit 1 . If an on-line printer is available, an on-line printout will 
occur in addition to the off-line file. The off-line provision allows the user to obtain multiple copies of the output 
without rerunning the program. 

The report produced by PEPSORT furnishes progress information in various selected sequences which facilitate analysis 
of the status of the project and of the reasons for delays. The contents of the fields on this report are similar to those 
of the Progress Status Evaluation Report (see Figure 8), except that this report includes total and earned cost fields 
that do not appear on the Progress Status Evaluation Report. Aside from these fields, only the sequence of the activ- 
ities has been changed. 

Error List 

Upon internal detection of an error, the program enters an error routine which types an error number. The meanings 
of error numbers are defined in the Reference Manual. After the error number has been printed, in most cases a re- 
start can be made by clearing the halt. A complete restart from the beginning of the program can always be made by 
pressing START, then STEP and RUN. 

PROGRAM ORGANIZATION DESCRIPTION 



PEPSORT is a self-contained program, coded in relocatable form in SDS META-SYMBOL language. It contains its 
own loader (card or paper tape) and, therefore, does not require a MONARCH system tape. Extensive use has been 
made of the META-SYMBOL external reference provision for defining data storage to the various subroutines in the 
program. The majority of data used by the program is located in a subroutine called COMMON. 

The program is composed of 36 subroutines connected by a main control program. This subroutine module construction 
provides a high degree of flexibility and facilitates system maintenance. Logic is provided for the program to 
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determine the type of configuration on which it is being run. Array data offsets are computed based on the amount 
of storage available. Automatic checks are made to determine if the problem being run will fit into the computer. 

PEPSORT Storage Arrangment 

The storage arrangement for PEPSORT is shown in Figure 10. Core storage is divided into three basic regions. The 
first region is the Common region. This region contains 273 words of constants, and scalar and short vector tempor- 
ary storage. Common is followed by the program area. This area contains 35 relocatable subroutines which occupy 
2463 words of core. The third region is a data area that extends from the end of the program section to the end of 
the core. During the input phase (Phase I) of execution, this section contains only the 517-word parameter file. The 
internal sort phase (Phase II) requires three vectors: 

1. S vector — Sj is the successor of the i-th activity. 

2. PC vector— PC; is the value of the current primary code for the i-th activity. 

3. SC vector — SCj is the value of the current secondary code for the i-th activity. 

These three vectors occupy the data region during Phase II. 

During the tape sort, Phase III, different vectors are required in addition to the S vector: 

1 . Select vector — contains selected elements of the S vector for the current pass. 

2. Sequenced vector — contains the selected vector, sorted on original activity number. 

3. Tape record region — contains one record for each element in the select vector. 

Tape Layouts 

The input tape format is presented in detail in the appendix. This tape contains two files: 

1. Parameter file (BCD) —one record 

2. Activity file (BCD) —one record per activity 

PEPSORT Execution Description 

After completion of loading, control is transferred to the Main Control Program MAINCON (F. D. 3); the Main Con- 
trol then branches to Address Calculation Routine ADRES1 (F. D. 23 ), which determines the amount of storage avail- 
able and calculates the addresses to be used in Phases I and II. Main Control next transfers to the Parameter Read 
Routine PARMRD (F. D.4) which reads the parameter file from the input tape and moves the effective date into 
Common. 

Main Control then transfers to the Input Control Routine CARDRD (F. D. 8). CARDRD requests the input device from 
the typewriter using the Input Device Selection Routine SCAP2 (F.D.5) . The data records are then read from either 
paper tape or cards. The data is moved into Common and control is returned to Main Control. Control is then trans- 
ferred to Run Heading and Parameter Print Routine HEADPG (F. D.31 ) to print the heading page. 

Next, each requested sort key is converted from a BCD code to a numeric code, which is the subscript of the key in 
the input tape record. These numbers are stored in vector form in Common. Control is then transferred to the Main 
Sort Control Routine SORT (F. D. 13). This routine selects the numeric keys two at a time (starting with the last two), 
reads the activity status file, and then transfers to Store Routine STORE (F. D. 16), which stores the selected record 
elements in the PC and SC vectors. If this is the first pass, the S vector is initialized to 

S; = i + 1, i = 

Control is then transferred to the Internal Sort Routine SORT2K (F. D. 25), which sorts the PC and SC values by modi- 
fying the S vector. Upon return from SORT2K, a check is made to determine if all the requested keys have been sel- 
ected. If they have not, the next two are selected and the process is repeated until the keys are exhausted. When 
all the keys have been used, control is returned to MAINCON. Main Control then transfers to the 
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Approximate 
Location 


PHASE I (Input) 


PHASE II (Internal Sort) 


PHASE III (Tape Sort) 


Variable 








Secondary 
Code 


Scattered 
Tape Area 






Not Used 


Primary 
Code 




Sequenced 


Select 










Successor 


Successor 










Vector 


Vector 


05637o 












04637 R 


Parameter File 












Resturt Routine 


19. Binary to Decimal Conversion Routine 




2. 


Common Package 


20. Decimal into Binary Routine 




3. 


Main Control Program 


21. Decimal into Binary Control Routine 




4. 


Parameter Read Routine 


22. Error Routine 




5. 


Input Device Selection Routine 


23. Address Calculation Routine 




6. 


Card Read Routine 


24. Initial Successor Routine 




7. 


Paper Tape Read Routine 


25. Internal Sort Routine 




8. 


Input Control Routine 


26. Tape Sort Control Routine 




9. 


Magnetic Tape Write Routine 


27. Original Sequence Number Routine 




10. 


Magnetic Tape Read Routine 


28. Move Select Routine 




11. 


Magnetic Tape Ready Routine 


29. Sort Select Routine 




12. 


BCD Code to Numeric Routine 


30. Read Select Routine 




13. 


Main Sort Control Routine 


31. Run Heading and Print Routine 




14. 


Read Codes Routine 


32. Main Print Control Routine 




15. 


Transfer Index Routine 


33. Report Line Output Routine 




16. 


Store Routine 


34. Sort Output Routine 




17. 


Blanks to Zeros Routine 


35. Double-Precision Binary to BCD Conv. 


00424 8 


18. 


Data Pack Routine 


36. End Routine 


00000 


Common Area 



Figure 10. PEPSORT Storage Arrangement 



Addr ess Calculation Routine ADRES2 (F. D. 23) to set up addresses for the tape sort. ADRES2 calculates the maximum 
string length (i.e., the maximum number of records that can be read into core) using the following relationship: 



Last location in core - S 



STRINGM = 



(NA+ 1) 



Number of words per record + 2 

NA = Number of activities 

After calculating the beginning of the select, sequenced, and tape areas, based on the maximum length of the string 
(STRINGM), control is returned to MAINCON. MAINCON then transfers to FINSORT (F. D. 26) , the Main Tape 
Sort Control. FINSORT first goes to HEADPG (F. D. 31)/ which initializes the line and page counters for the output, 
prepares the off-line tape for writing prints the heading page on the line printer (if requested) and writes on the off- 
line tape. Next, Original Sequence Number Routine (F. D. 27) is entered. This routine merges the original sequence 
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numbers into the S vector. Each element of S now contains its subscript in the left half of its storage location and 
the next activity number in the right half: 



S. = 
i 



Original Activity Number 


Next Activity in String 







11 


12 




23 



Control is then transferred to Move Select MVESEL (F. D. 28), which moves through the S vector, assigns new activity 
numbers based on the sorted sequence, and then stores these numbers and the original activity numbers in one word 
and moves it to the select area: 



Select. = 



Original Activity Number 


New Sorted Activity Number 







11 12 
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The Sort Select SORTSEL Routine (F. D. 29) sorts the select area on the original activity numbers and moves the sorted 
vector into the sequenced area. The sequenced area is now in the same sequence as the input tape. The Read Select 
READTP Routine (F. D.30) reads the STRINGM records into the record area and positions them according to the new 
sequence. When this area is full, these records are printed on-line and written on tape. Next, a test is made to 
determine whether all activities have been processed; if they have not, the process is repeated for another block of 
STRINGM records. This is done until all records have been processed. At this time, control is returned to the Main 
Control routine. Main Control transfers to End (F. D. 36) , which writes an end-of-file mark on tape 1 and types the 
word "END. " End also prints total cost and earned cost for the project along with the ratio of earned to total ex- 
pressed as a percent. On return from End, control is transferred to CARDRD to read input for the next case. 
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APPENDIX 

SCHEDULE SPECTRUM PROGRAM OUTPUT TAPE LAYOUTS 

The output tape from SSP (on magnetic tape unit 1) contains three files of information. These are pictured below. 

Tape 1 Arrangement 



i 



-/S. 



^S. 



Parameter file: one Unscheduled activity file: one Scheduled event time file: one binary record 
BCD record with 571 BCD record/file with 30 words per schedule with number of events plus three 
words. per record. words. 



In the detailed layouts of each of these files, shown on the following pages, 

B = blank 

A = alphabetic character 
N = numeric character 
X = positions not used 

Any other characters are actual representations. 

Parameter File Layout 



Word 
Number 


Character 


Field Description 


1 


1 


A 


A 


A 


Input Type Code (Type 1 — Run Heading) 
Run Heading, first 3 characters 




2-20 


A 


A 


A 


A 


Run Heading, characters 4 to end 




21 
21 
21 


2 


A 


N 


N 


Input Type Code (Type 2 — Run Parameters A) 

Type of units of Duration Code (H=hours, D=days, W = weeks, M = months) 

Day of starting date 


22 
22 


A 


A 


A 


N 


Month of starting date 

First character of starting date 




23 
23 
23 


N 


N 


N 


Al 


Second character of starting date 

Working hours/day 

First day-off, first character 




24 
24 
24 


Al 


A2 


A2 


A3 


First day-off, second character 

Second day-off 

Third day-off, first character 




25 
25 
25 


A3 


A4 


A4 


A5 


Third day-off, second character 

Fourth day-off 

Fifth day-off, first character 




26 
26 
26 


A5 


A6 


A6 


A7 


Fifth day-off, second character 

Sixth day-off 

Seventh day-off, first character 




27 
27 


A7 


X 


X 


X 


Seventh day-off, second character 
Not used 




28-40 


X 


X 


X 


X 


Not used 




41 


3 











Input Type Code (Type 3 — Holiday Specifications) 
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Parameter File Layout (cont.) 



Word 
Number 


Character 


Field Description 


42 








N 


N 


Day of first holiday 




43 





A 


A 


A 


Month of first holiday 




44 








N 


N 


Year of first holiday 




45-536 


Repeats 


above fo 


-mat for remaining 165 holidays (3 words following last 


holiday contain all zeros) 


537 
537 
537 
537 


4 


A 


A 


A 


Input Type Code (Type 4 - Run Parameters B) 

Not used 

Major activity option code 

Crash option code 




538 


A 


A 


A 


A 


First 4 characters of Run ID or Date 




539 


A 


A 


A 


A 


Last 4 characters of Run ID or Date 




540-556 


A 


A 


A 


A 


Run Heading 




557 


N 


N 


N 


N 


Number of activities 




558-570 










Not used 




571 


N 


N 


N 


N 


Checksum — For sync test and read test 





Unscheduled Activity Record Layout 



Word 
Number 


Character 


Field Description 


1 


5 











Input Type Code (Type 5 — Activity Record) 




2 


N 


A 


A 


A 


I node 




3 


N 


A 


A 


A 


J node 




4 











A 


IJ Dupe Code 




5 





N 


N 


N 


Normal Duration 




6 





N 


N 


N 


Crash Duration 




7 


N 


N 


N 


N 


Normal Cost, first 4 characters 




8 


N 











Normal Cost, fifth character 




9 
9 
9 
9 


N 


A 


A 


A 


Dummy Record Indicator (0 = not dummy; 1 = milestone 

Transaction Code 

Cost Continuity Indicator 

Major Activity Code 


dummy) 


10 





N 


N 


A 


First 3 characters of milestone date 




11 


A 


A 


N 


N 


Last 4 characters of milestone date 




12 


A 


A 


A 


A 


Part of Cost Center Code or Activity Description 




13 


A 


A 








Part of Cost Center Code or Activity Description 




14 


A 


A 


A 


A 


Part of Responsibility Code or Activity Description 




15 


A 


A 








Part of Responsibility Code or Activity Description 




16-23 


A 


A 


A 


A 


Remainder of Activity Description 




24 


N 


N 


N 


N 


Internal node, M 




25 


N 


N 


N 


N 


Internal node, N 
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Unscheduled Activity Record Layout (cont.) 



Word 








Number 


Character 




Field Description 


26 


N 


N 


N 


N 


Internal Activity Number, K 


27 


N 


N 


N 


N 


Crash Cost, first 4 characters 


28 


N 











Crash Cost, fifth character 


29 


N 


N 


N 


N 


Original Activity Sequence Number 


30 


N 


N 


N 


N 


Checksum 



Scheduled Event Time File Record (binary) 



Word 














Number 


Charac 


ter 




BIN/BCD 


Field Description 


1 


7 











BCD 


Input Type Code (Type 7 — Schedule File) 


2 








B 


B 


BIN 


Total Project Duration Time — basic units 


3 








B 


B 


BIN 


Time of Event 1 — basic units 


4 








B 


B 


BIN 


Time Event 2 — basic units 


NE + 2 








B 


B 


BIN 


Time of Event NE (last event)— basic units 


NE + 3 


B 


B 


B 


B 


BIN 


Checksum 



DETAILED SCHEDULE REPORT PROGRAM INPUT TAPE LAYOUTS 
The input tape to DSRP is the output tape from SSP, described above. 
PROJECT EVALUATION PROGRAM TAPE LAYOUTS 



I 



J ^ 



Project Parameter Activity Status File: one 65-word BCD record for each activity in the project. 
File: one BCD rec- 
ord containing 517 
words. 

In the following detailed layouts of each of these files, 

B = blank 

A = alphabetic character 
N = numeric character 
X = positions not used 

Any other characters are actual representations. 
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Project Parameter File Layout (BCD) 



Word 














Number 


Character 




Field Description 




1 


1 


B 


B 


B 


Input Type Code (Type 1 — 


PEP Parameter File) 


2 


B 


B 


B 


A 


Units type, H, D, W, M 




3 


B 


B 


N 


N 


Start Day 




4 


B 


A 


A 


A 


Start Month 




5 


B 


B 


N 


N 


Start Year 




6 


B 


B 


N 


N 


Hours per Day 




7 


B 


B 


A 


A 


First Nonworking Day 




8 


B 


B 


A 


A 


Second Nonworking Day 




9 


B 


B 


A 


A 


Third Nonworking Day 




10 


B 


B 


A 


A 


Fourth Nonworking Day 




11 


B 


B 


A 


A 


Fifth Nonworking Day 




12 


B 


B 


A 


A 


Sixth Nonworking Day 




13 


B 


B 


A 


A 


Seventh Nonworking Day 




14 


B 


B 


B 


A 


Major Activities Only indicator 


15 


B 


B 


N 


N 


Effective Date Day 




16 


B 


A 


A 


A 


Effective Date Month 




17 


B 


B 


N 


N 


Effective Date Year 




18 


. B 


B 


B 


B 


Not used 




19 


B 


B 


B 


B 


Not used 




20 


B 


B 


B 


B 


Not used 




21 


B 


B 


B 


B 


Not used 




22 


B 


B 


B 


B 


Not used 




23 


B 


B 


B 


B 


Not used 




24 


B 


B 


N 


N 


First Holiday Day 




25 


B 


A 


A 


A 


First Holiday Month 




26 


B 


B 


N 


N 


First Holiday Year 




27 


B 


B 


N 


N 


Second Holiday Day 




28 


B 


A 


A 


A 


Second Holiday Month 




29 


B 


B 


N 


N 


Second Holiday Year 


► 492 Words (zero if no holiday) 


513 


B 


B 


N 


N 


164th Holiday Day 




514 


B 


A 


A 


A 


164th Holiday Month 




515 


B 


B 


N 


N 


164th Holiday Year ,, 




516 














Zero 




517 














Zero 





Activity Status Record Layout (BCD) 



Word 








Number 


Character 




Field Description 


1 


2 


B 


B 


B 


Type Code (Type 2 — Activity Status Record) 


2 


N 


A 


A 


A 


Activity I Node 


3 


N 


A 


A 


A 


Activity J Node 


4 


B 


B 


B 


A 


Activity Dupe Code 


5 


N 


N 


N 


N 


Internal Activity Number 


6 


N 


N 


N 


N 


Internal M Node 


7 


N 


N 


N 


N 


Internal N Node 


8 


N 


N 


N 


N 


Scheduled Activity Duration (Basic Units) 


9 


B 


B 


N 


N 


Scheduled Start Day 


10 


B 


A 


A 


A 


Scheduled Start Month 


11 


B 


B 


N 


N 


Scheduled Start Year 


12 


B 


B 


N 


N 


Scheduled Finish Day 
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Activity Status Record Layout (BCD) (cont.) 



Word 










Number 


Character 




Field Description 


13 


B 


A 


A 


A 


Scheduled Finish Month 


14 


B 


B 


N 


N 


Scheduled Finish Year 


15 


N 


N 


N 


N 


Actual Duration (Basic Units) 


16 


B 


B 


N 


N 


Actual Start Day 


17 


B 


A 


A 


A 


Actual Start Month 


18 


B 


B 


N 


N 


Actual Start Year 


19 


B 


B 


N 


N 


Actual Finish Day 


20 


B 


A 


A 


A 


Actual Finish Month 


21 


B 


B 


N 


N 


Actual Finish Year 


22 


B 


B 


N 


N 


Original Scheduled Finish Day 


23 


B 


A 


A 


A 


Original Scheduled Finish Month 


24 


B 


B 


N 


N 


Original Scheduled Finish Year 


25 


B 


B 


N 


N 


Early Start Day 


26 


B 


A 


A 


A 


Early Start Month 


27 


B 


B 


N 


N 


Early Start Year 


28 


B 


B 


N 


N 


Late Start Day. 


29 


B 


A 


A 


A 


Late Start Month 


30 


B 


B 


N 


N 


Late Start Year 


31 


B 


B 


N 


N 


Early Finish Day 


32 


B 


A 


A 


A 


Early Finish Month 


33 


B 


B 


N 


N 


Early Finish Year 


34 


B 


B 


N 


N 


Late Finish Day 


35 


B 


A 


A 


A 


Late Finish Month 


36 


B 


B 


N 


N 


Late Finish Year 


37 


N 


N 


N 


N 


Predicted Status Criterion Magnitude 


38 


± 


B 


B 


B 


Predicted Status Criterion Sign 


39 


N 


N 


N 


N 


Estimated Total Float 


40 


N 


N 


N 


N 


Duration Difference Magnitude 


41 


± 


B 


B 


± 


Duration Difference Sign and Estimated Float Sign 


42 


N 


N 


N 


N 


Total Slip Magnitude 


43 


± 


B 


B 


B 


Total Slip Sign 


44 


N 


N 


N 


N 


Number of slips 


45 











A 


Previous Finish Indicator (Y or N) 


46 


B 


B 


B 


A 


First Character of Cost Code 


47 


A 


A 


A 


A 


Second, Third, Fourth, and Fifth Characters of Cost Code 


48 


A 


B 


A 


A 


Sixth Character of Cost Code, Blank, First, and Second Characters of 
Responsibility Code 


49 


A 


A 


A 


A 


Third, Fourth, Fifth, and Sixth Characters of Responsibility Code 


50 


B 


A 


A 


A 


Activity Description 


51-57 


A 


A 


A 


A 


Activity Description 


58 


A 


B 


B 


B 


Activity Description 


59 


B 


B 


B 


A 


Major Activity Indicator 


60 


N 


N 


N 


N 


Actual Status Criterion Magnitude 


61 


± 


B 


B 


B 


Actual Status Criterion Sign 


62 
63 


B 
N 


B 
N 


N 
N 


N 
N 




Activity Total Cost 


64 
65 


B 
N 


B 
N 


B 
N 


N 
N 


., 


Percent Completed 1 



PROGRESS EVALUATION SORT PROGRAM INPUT TAPE LAYOUT 

The Activity Status Tape, output on unit 2 by PEP and input to PEPSORT on unit 2, contains two files of information: 
The project parameter file and the activity status file. These files are illustrated in the preceding discussion, "Proj- 
ect Evaluation Program Tape Layouts." 
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SUBROUTINE ROSTER 

A subroutine roster is given for each program in the Project Management System. Some routines are used by several 
programs, and their names appear in the individual subroutine rosters; however, only one flowchart is provided for 
each such subroutine. 

In the SSP and PEP subroutine rosters the deck numbers are preceded by a letter indicating that the subroutine is used 
in the first (F), second (S), or third (T) segment of that program. 

SCHEDULE SPECTRUM PROGRAM 



Deck 

Number Routine Page 

F01 Binary Card Load Routine 

F02 Common Data and Storage Area (Listing) ____^__ 53 

F03 SSP Control Program _____ 78 

F04 Magnetic Tape Read 126 

F05 Magnetic Tape Write__ , 125 

F06 Error 123 

F07 Binary /Decimal Integer Conversion 167 

F08 Decimal/Binary Conversion Control . 81 

F09 Decimal/Binary Conversion 167 

Segment I — Part B: 

F10 Input/Output Area (Listing) 57 

Fll Create Abbreviated Activity Records ', 81 

F12 Set Up Milestone Dummy Activity Records 82 

F13 End of Activity File Record 83 

F14 Assign Unsorted Activity Numbers 84 

F15 Reel Change Verification 83 

F16 Write Updated Parameter Record 84 

Segment I — Part A: 

F17 Non-Activity Oriented Initialization - 84 

F18 I/O Device Selection 129 

F19 Parameter and Holiday Input . 85 

F20 Change Input Device Selection 86 

F21 Parameter Conversion 86 

F22 Holiday Sort 133 

F23 Calendar Initialization 86 

F24 Activity Record Input 87 

F25 Milestone Time Set-Up 89 

F26 Write Activity Record 89 

F27 Type Reel Change Message 89 

F28 Skip Program Segments— 89 

F29 Paper Tape Read 124 

F30 Card Read 123 

F31 Date to Basic Units Conversion , 165 

F32 Calendar 110 

F33 End of Segment I Load . 89 

Segment II - Part B : 

501 Write Scheduled Event Time Record 90 

502 Crash 91 

Segment II — Part A: 

503 Create Crash Data Arrays . 95 

504 not used 

505 Topological Sort 145 

506 M and N Assignment 147 

507 Topological Tape Sort . 149 

508 Activity Oriented Initialization 99 

509 End of Segment II Load 100 
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Deck 

Number Routine Page 

Segment III - Part B : 

T01 Input/Output Area (Listing) 57 

T02 Schedule Summary Report TOO 

T03 Report Line Output 164 

T04 Double-Precision Binary/Decimal Conversion 128 

T05 Calendar ! 110 

T06 Date to Basic Units Conversion _____ 165 

Segment III - Part A: 

T07 Set Up Data Arrays for Summary Report . 102 

T08 Write End of Time File Record 103 

T09 Read Parameter - Unit 1 103 

T10 Parameter Print 134 

Til End of Segment III Load 103 

T12 SSP Start Routine 103 

DETAIL SCHEDULE REPORT PROGRAM 

1 Main Control - Part 1 104 

2 Delay 105 

3 End 105 

4 Duration Read 106 

5 Input Conversion 108 

6 Time Vector 109 

7 Calendar 110 

8 Detail Schedule Report 116 

9 Detail Schedule Print 121 

10 Error 123 

11 Card Read \ 123 

12 Paper Tape Read 124 

13 Magnetic Tape Write 125 

14 Magnetic Tape Read 126 

15 Report Line Output 127 

16 Binary /Decimal Integer Conversion 153 

17 Binary /BCD Calendar Date Conversion 128 

18 Decimal/Binary Conversion 128 

19 Double-Precision Binary/BCD Conversion 128 

20 Common Package (Listing) 59 

21 Main Control - Part 2 104 

22 Parameter Control 128 

23 Magnetic Tape Set Up 128 

24 I/O Device Selection 129 

25 Parameter Input 130 

26 Holiday Sort 133 

27 Run Heading and Paramter Print 134 

PROJECT EVALUATION PROGRAM 

Segment I: 

F01 Common Package (Listing) __ 64 

F02 Magnetic Tape Read 126 
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F04 Segment I Control . 137 

F05 First Run Request . 136 

F06 I/O Device Selection 129 

F07 Segment I Set Up 136 
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F09 Initial Input Tape 138 

F10 Parameter and Holiday Input - 142 

Fll Holiday Sort 133 

F12 Initial Abbreviated Activity File 141 

F13 Network Change 141 
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Segment I (cont. ) 

F14 Blanks to Zeros 153 

F15 Topological Sequence Control 144 

F16 Unsorted Activity Number Assignment. __ 144 

F17 not used 

F18 Topological Sort 145 

F19 M and N Assignment 147 

F20 Tape Sort 149 

F21 Read BCD Record 153 

F22 Schedule Request- ; 151 

F23 Magnetic Tape Write . 125 

F24 Binary /Decimal Integer Conversion , ; 153 

F25 Magnetic Tape Set Up 128 

F26 Card Read 123 

F27 Paper Tape Read 124 

F28 Error 123 

F29 Utility Package 152 

F30 Date Comparison 152 

F31 Decimal/Binary Conversion . 167 

F32 Segment I Data — 152 

Segment II: 

501 Common Package (Listing) ; 64 

502 Magnetic Tape Read - 126 

503 Segment II Load - 136 

504 Segment II Control 153 

505 Erase - 153 

506 Activity ChnngP _ — 154 

507 Post Change 156 

508 Blanks to Zeros 153 

509 Segment II Set Up 158 

510 Forward PERT 158 

511 Reverse PERT 159 

512 Status Evaluation 159 

513 Print Control 162 

514 Print Initialization — 167 

515 Print Evaluation . _ — _ 163 

516 Report Line Output — 164 

517 Calendar 110 

518 Date to Basic Units Conversion _^___ 165 

51 9 Magnetic Tape Set Up 128 

520 Magnetic Tape Write 125 

521 Card Read 123 

522 Paper Tape Read 124 

523 End 167 

524 Error 123 

525 Utility Package 152 

526 Date Comparison 152 

527 Decimal/Binary Conversion 167 

528 Double-Precision Binary/BCD Conversion 128 

529 Binary /Decimal Integer Conversion 153 

530 Segment II Preparation 153 

PROGRESS EVALUATION SORT PROGRAM 



1 Restart — 167 

2 Common Package (Listing) 72 

3 Main Control 168 

4 Parameter Read 167 

5 Input Device Selection . 129 

6 Card Read — 123 
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PEPSORT (cont. ) 

7 Paper Tape Read 124 

8 Input Control .169 

9 Magnetic Tape Write . 1 25 

10 Magnetic Tape Read 126 

11 Magnetic Tape Ready .170 

12 BCD Code to Numeric 170 

13 Main Sort Control . . .171 

1 4 Read Codes 1 72 

15 Transfer Index ; ■ 173 

1 6 Store 1 74 

17 Blanks to Zeros — _ — -.167 

18 Date Pack 167 

19 Binnry/Dgrlmnl ("nnvgrslnn 1<*>7 

20 Decimal/Binary Conversion 167 

21 Decimal/Binary Control 167 

22 Error 123 

23 Address Calculation 175 

24 Initial Successor 167 

25 Sort on Two Keys , , 175 

26 Tape Sort Control 176 

27 Original Sequence Number 167 

28 Move Select 176 

29 Sort Select 177 

30 Read Select 177 

31 Run Heading and Parameter Print 134 

32 Main Print Control 177 

33 Report Line Output ', 127 

34 Sort Output 178 

35 Double-Precision Binary/BCD Conversion,. , 128 

36 End 167 
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SSP COMMON DATA AND STORAGE 



CO 



ooocc 




OJOGO 


01 00000 


00001 


32 00002 


0OO02 


01 o 00000 


00003 


01 o 00000 


00004 


01 00000 


00C05 




00006 




000C7 




00010 




0001 1 




00012 




00013 




00014 




00C15 




00016 




00017 




00020 




00021 


00000035 


00022 


01000000 


00023 


02000000 


00024 


06000000 


00025 


11000000 


00026 


60606060 


00027 


60606033 


00030 


20606060 


00031 


00006060 


00032 




00033 




00034 




00035 


00 00000 


00C36 




00037 




00040 




00041 




0004? 




00043 




00044 


37777777 


00045 




00046 




00047 




00056 


00006264 


00057 


00004446 



1 

2 




R9RG 

3 RG 




STPROG 


3 


* 






4 




JIM 


02 


5 




BRU 


URSEG1 


6 


• 






7 




BRU 


URSEG2 


8 


* 






9 




BRU 


URSEG3 


10 


* 






1 1 


* 






12 


J A39FF 


RES 




13 


$A3RAC 


RES 




14 


SABRACI 


RES 




15 


SA9RACIL 


RES 




16 


SA9RACIM1 


RES 




17 


SABRACJ 


RES 




15 


SA3RACJL 


RES 




19 


* 






20 


SA9RACJM1 


RES 




21 


SA9RACM 


RES 




22 


SA3RACM1 


RES 




23 


SACTh 


RES 




24 


* 






?5 


SACTK 


RES 




?6 


5ACTNUMUD 


DATA 


29 


27 


$ D CD1000 


DATA 


'1000' 


28 


SPCD2000 


DATA 


'2000* 


29 


SPCD600C 


DATA 


'6000* 


3 


SPCD9000 


DATA 


'9000* - 


31 


?BCDBLK 


JAFA 


» » 


32 


SF-CDDP 


DATA ' 


> » 


3 3 


SBCCPL 


DATA 


*+ * 


34 


JBPLKDAY 


DATA 


» » 


35 


5CABRAC 


RES 




36 


SCABRACI 


RES 




37 


•SCA9RACJ 


RES 




26 


SCARST 


HLi 


SCAP21 


39 


SCHINDEV 


RES 




4 


* 






41 


* 






42 


SCOFF 


RES 




4 3 


SCPBRA 


RES 




44 


SCRASH 


RES 




45 


* 






46 


SCRASHSP 


RES 




£7 


SCURhOL 


RES 




4 3 


$ P A c r I 


DATA 


037777777 


49 


SDATBASU 


RES 




c 


*DAY 


RES 




= 1 


S P A Y 5 F F 


RES 




c 2 


$ D A Y S U K 


DATA 


*Sli*,*M9* 



COMMON DATA AND STORAGE 

T9 READ SEG 1 FROM TAPt AND EXECUTE 

FOR PR9G READ FROM CARLS 
TO URITE SEG 1 8N TAPE 

TO URITE SEG 2 ON TPAE 

TO WRITE SEG 3 8N TAPE 



IND DURATI9N VECTOR 8RIGIN MINUS 1 

UD 9R1GIN 9F 1ST WD 8F ABR ACT REC 

I -ID ORIGIN 8F I 9F ABR ACT REC 

IMDX LAST +1 L9C 8F I REC NQT INCL REMOVAL 

I A D A B R A C I - 1 

1'MD 9R1GIN 9F J OF ABR ACT REC 

MU LAbT+1 L8C OF J REC NO f INCL REMOVAL; 



IMD 
IND 



I .MD 



ABR 
M,N 
ABR 
STA 
S 
LAS 
NUM 



END 
END 
BCD 
BCD 
BCD 
BLA 
LOG 
LOG 
LOG 
1SI 
C90 
C 
G 
SL8 
C8n 
COM 



ACJ-1 

ARRAY 
AC-1 
RT 9F 
TART 9 
1 THRE 
BER 9F 
BCD 
PCD 
ACTIV 
FILE 
BLANK 
DECIM 
PLUS 
NKS 
NEXT 
NEXT 
NEXT 
L8C C 
E FOR 
HANGES 
= CDS P 
PE VEC 
TR9L P 
PLETEL 



9RIGIN-1.8VER OLD I ARRAY) 

PREVIOUS THREAD DURING RANK 
F NETWORK AFTER RAN'K 
ADED ACT NUM GSED +1 
uORDS IN ACTIVITY RECORD 

1000 

2000 

ITIES CODE 

9 C9DE 

AL POINT 



1ST UD ABR AC! T9 BE SET UP 
I UD ABR ACT 19 BE SET UP 
J UD ABR ACT T9 BE SET UP 
AN'T CL9BBER-SEG 2 
DEVICE SELECTED F9R 

19 INPUT FILES 
=PAPER TAPE N=N9NE 
TOR 9RIGIN MINUS 1 
R9G-BRANCH A +P ATH 1 , -P ATH2 
Y CRASHED IND = -1 



OOOC CRmSH OPTIdN C9DE FROM PARAMETER 3 

LOG 9F NEX1 H9LIDAY T9 PE STORED 

CONST F9R I F9R DELETE + END ACT 
DATE BASIC UNITS 

DAY OFF VECTOR 
,'TU',*UE*.*TH*,*FR*,*SA* 



0000 
0000 
0000 
0000 
0001 
0002 
0003 
0004 
0005 
0006 
0008 
0840 
0360 
0370 
0000 
0400 
0380 
04 2 
0430 
0410 

Good" 

0390 
0530 
054 
0300 
1250 
14 85 
1486 
1487 
1488 
1285 
1490 
1500 
1190 
0320 
0330 
0340 
000 
0110 
0120 
0130 
0830 
0210 
0855 
0860 
0660 
0140 
0000 
1245 
0606 
1150 
1210 






00060 


00006364 


00061 


00006625 


00062 


00006330 


00063 


00002651 


00064 


00005221 




00000055 


00065 




00066 




00067 




00070 




00071 


2 00 00C47 


00072 


2 00 00046 


00073 




00074 




00075 


00000000 


00076 


GOOOOUOO 


00077 


00000000 


00100 




00101 




00102 




00103 




00104 




00105 




00106 




0035 3 


2 00 00135 


00354 


35 00000 


00355 






00000354 


00374 




00375 




00376 


00 00000 


00377 




00400 




00401 




004C? 


77000000 


00403 


00770000 


00404 


00000077 


00405 


77770000 


004C6 


00007777 


004 7 


77777700 


00410 


00777777 


00411 


00037777 


00412 


00077777 


00413 




00414 


7777665C 


00415 




00416 


4C00O000 


00417 


77777777 


00420 




00421 


004 12145 


00422 


00262522 


004 2 3 


D0442151 


00424 


00214751 



^3 
54 
55 
56 
57 
53 
59 
60 
61 
62 
63 
64 
65 
66 
67 
66 
6 9 
70 
71 
72 
73 
74 
75 
76 
77 
73 
79 
PC 

ei 

82 
£3 
84 
85 
86 
87 
88 
89 
SO 
51 
92 
S3 
94 
95 
96 
97 
?8 
99 



$ D A Y U K 

$DS 

SDUR1 

SDUR2 

$CUP3 

SDY0FF9 

SDYOFMl 

SENDAC 

SFNDFILE 



$ERD 
SEffI 

?FRJ 

$FEND 

SFftFF 

5 F S T C H 

«t-NA 

S^MF 

SHNGNE 

SM8L6IN 

5H8LDM1 

^MQLIMT 

JMOLORG 

JH0L9M1 

SLA9Q-F 

SL1NEC 

SL9CPRB 

SLOSTDYS 

SLSTLOC 

S^ACC 

$ M A S K 1 

$ M A S K 2 

$ N A S K 4 

J&MASK12 

$ M A S K 3 4 

?M4SM23 

5MASK234 

5 M A S K A D 

JMASKADR 

«MAXABR 

SHIN15C 

SMNOFF 

5M5NC9NST 

$M8NE 

$ M 8 N T H 

$ M N Y R 



EQU 
RES 
RES 
RES 
RES 
HLT 
HLT 
RES 
RES 



DATA 

DA TA 

DATA 

RES 

RES 

RES 

RES 

RES 

RES 

RES 

HLT 

STA 

RES 

ECU 

RES 

RES 

HLT 

RES 

RES 

RES 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

RES 

DATA 

RES 

DATA 

DA TA 

RES 



DAYSWK-1 

1 

1 

1 

1 

DAY9FF,2 

DAY0FF-U2 

1 

1 







1 
1 
1 
1 
1 
1 

165 
H0LBIN-1 .2 
PARFD 
15 

HOLORG-1 
1 
1 

P A R A M B 
1 
1 
1 

077000000 
000770000 
000000077 
077770000 
000007777 
077777700 
00777777 
000037777 
000077777 
1 

-600 
1 

040000000 
-1 
1 



IND 
IND 



Ii\IL) 



IND 



UNITS 8F CONVERTED DATE 
DAY OF CONVERTED CALENDAR DATE 
MONTH OF CONVERTED CALENDAR DATE 
YEAR OF CONVERTED CALENDAR DATE 



OUI'AREA + ACTNUMUD 



DUPE IJ COCE FOR ERROR 
I STORE FOR ERROR TYPE 
J STORE FOR ERROR TYPE 
LAST FLBU +1 
FLJU VECTOR ORIGIN 



TYPE 

OUT 

PUT 



MINIS 1 



OUT 



1SI CHANGE ACT IND FOR ACT INPUT 

HALF NUMBER OF ACT 

HALF NUMBER OF EVENTS 

HAlF NEGATIVE NUMBER OF EVENTS 

BINARY HOLIDAY AREA 

DUMMY TO STORE IN 1 ST UD CAL HOLLAS 



LAaEL VECTOR ORIGIN MINUS 1 

LINE COUNTER FOR OUTPUT ROUTINES 

NEGATIVE OF LOST DAYS 
LAST LOCATION IN MEMORY 
LAST NODE NUMBER USED 



MAXIMUM NUMBER A8REVIATED ACT REC 
CONSTANT TO MEASURE FAFF ERASE LNGTH 
NOiJE NUMBEk VECTOR ORIGIN MINUS 1 
CONST FOR NO HALT IN MdNCARCH LOAD 
MINUS ONE = 77777777 



DATA *JAN J 



FE3 J 



MAR J 



APR J 



MAY' 



JUN' 



JUL J 



1200 
0610 
0580 
0590 
0600 
1170 
1160 
1280 
0935 
0940 
0990 
0640 
0620 
0630 
0880 
0810 
0435 
0740 
0750 
0780 
0000 
1145 
1310 
1255 
1259 
0800 
0690 
0145 
0000 
0350 
0310 
1320 
1350 
1360 
1330 
1340 
1345 
1365 
1370 
1380 
0490 
0000 
0850 
0000 
1450 
0605 
1 120 



00425 


00442170 


00426 


U04 1644* 


00427 


00416443 


00430 


00216427 


00431 


00622547 


00432 


C0462363 


00433 


004 54 665 


00434 


00242523 




00000420 


00435 


ocoooooo 


00436 




00437 




00440 




00441 




00442 




00443 




00444 




00445 




00446 






0C000437 


00^47 




00450 






00000447 


00467 






00000467 


00470 




00471 




00472 




00473 




00474 






OCC00473 


005 13 




00*14 




00*15 




00516 





ICO 



DATA 'AUG*. 'SEP*** OCT', 'NOV, 'DEC* 



00517 



00520 


OOCOOOOI 


00521 


00 00354 


00522 


00 00000 


00523 


00001072 


00*24 


00000000 



00525 
00526 
00527 00000000 

00*30 OCCC0002 



1C1 


S M 9 N Y R 


EQU 


MONYR-1 


1C2 


SMSTEND 


DATA 





103 


SNA 


RES 




1C4 


$ N A N R M 


RES 




1C5 


$ N C M A X 


RES 




1C6 


SMCBFF 


RES 


1 I 


1C7 


SNCSCALE 


RES 




108 


SNDY3FF 


RES 




1C9 


$NE 


RES 




110 


SNEGACUD 


RES 




111 


$MFP2 


RES 




112 


* 






113 


$NGNA 


EOU 


NANRM 


11 4 


$NGNE 


RES 




1 15 


$NHY 


RES 


15 


1 16 


f.NHYMl 


EQU 


NHY-1 


117 


SNUMAC 


RES 




1 18 


SNUMACT 


EQU 


NUMAC 


1 19 


S-K'UMACNG 


RES 




120 


fNUMTWD 


RES 




121 


SNUD 


RES 




122 


SBMUDPW 


RES 




123 


$NUDY 


RES 


1 5 


124 


SNUDYM1 


EQU 


NWDY-1 


125 


SNUHPD 


RES 




126 


snxtabr 


RES 




127 


* 






128 


SNXTABRI 


RES 




129 


$NXTMSTA 


RES 




130 


* 






131 


$ N X T R N 


RES 




1 32 


* 






133 


$*ME 


DATA 




134 


$PAPFDLC 


HL.T 


PAPFD 


135 


?FA.RFMLC 


HLT 


PARFM 


i r* 6 


$PAR:MUMWD 


DATA 


570 


137 


$PRNTCeDE 


JATA 





133 


• 






139 


* 






14Q 


* NOTE THAT ABOVE 2 WORDS 


141 


* IS REQUEST 


iD. IF CODES 


142 


* MACHINE LANGUAGE PROGR 


143 


SFECIMD 


RES 


1 


144 


SRELMST 


RES 


1 


145 


*RGINDEV 


DATA 


n 


146 


• 






147 


?RPUN8 


DATA 


2 



CURRENT NTWK END TIME INCL MSTN 
NUMBER OF ACTIVITIES 

NEG OF NUM ACT NOT INCL TO BE "REHUVD' 
MAXIMUM NORMAL COST 
HD NORMAL COSI VECTOR ORIGIN MINUS 1 
NORMAL COSI SCALE FACT8R 
NUMBER DAYS OFF PER WEEK 
NUMBER 9F EVENTS 

NEGATIVE OF NUMBER WDS IN ACT RES 
NUMBER EVENTS +2 

NEbATIVE NUMBER OF ACT IN FINAL NTUK 
NEGATIVE NUMBER OF EVENTS 



NUMBER OF ACTIVITIES 

NEGATIVE NUMBER OF ACTIVITIES 
NUMBER UORijS IN TIME TAPE RECORD 
NUMdER OF WORKING DAYAS TO DATE 
NUMBER WORKING DAYS" P"Ek~UEEK 



NUMBER WORKING HOURS PER DAY 

LOG OF NEX1 ABR ACT REC OP 1ST MSTN 

WHEN THRU SETTING UP NORMAL ABR RC 
LOG I UD Or NEXT ABR ACT REC 
NEXT MSTN lMY LOC (LAST ABR REC +1> 

NEXT RECORD NUMBER TO sE ASSIGNED 



NUMBER OF WORDS IN PARAMETER RECORD 
C8JE FOR WHETHER OR NOT OUTPUT IS 
DESIRED ON ON-LINE PRINTER 
Y=YES, N=NO 
A*E TESTED BEFORE TYPE-IN 3F THE CODES 

ARE TnERE <FRSM CARDS ADDED TO 
*M DECK) THE REQUESTS ARE NOT EXECUTED 
INDICATES IF 1ST TIME THRU INPUT 
CURRENT RELATIVE MSTN TIME 
CODE FOP DEVICE SELECTED FOR REG 

INPUT: C=CDS P=PAPER TP 1=iAG TP 
UNIT NUMBER FOR RLOUTSh 



1130 



iii o 

0000 
0720 
"0460 
0000 
0870 

dodo 

1220 
0730 
1270 
0785 
0790 
0760 
0770 
1254 
1258 
0440 
0000 
0450 
0715 
1225 
1230 
1253 
1257 
1240 
0470 
0480 
0000 
0510 
0520 
0550 
0560 
1410 
0147 
0146 
1300 
0050 
0060 
0070 



0570 
0500 
0030 
0040 
0000 






00531 




00532 




00533 


00 00000 


00534 




00535 




00*36 




00537 




00540 




00541 




0054 2 




00543 




00544 




00545 




00546 




00547 




00550 




00551 




00552 




00553 






0000053 4 


00554 




00555 




00556 




00557 


7 7 7 7 7 716 


00560 




00561 




00562 


20000000 




00000562 


00563 


57777777 


00564 




00565 




00566 


00000003 


00567 




005 7 


uooooooo 


00571 




00572 




00573 


00000002 


00574 




00575 




00576 




00577 




00600 




00601 




00602 




006C3 




00604 




00605 


2 00 OOOOC 


00606 


2 00 00000 


00607 


2 OC 00522 


00610 


ooooooco 



48 
49 
5 
51 
52 
53 
54 

5 5 
56 
<z7 
58 
59 
60 
61 

6 2 
63 
64 
f5 
65 
67 
68 
6 9 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
8 2 
83 
84 
?5 
86 
87 
Pd 

8 9 
50 

<n 

92 

9 3 
94 
95 
56 
97 
C8 
99 

2C0 
2C1 
20 2 



$RUNI 

SSARS 

SSCAL 

$?CHE 

SSCHE 

$SC*I 

SSCHN 

* 

$ S D A Y 

$SDTI 

$SEG1 

JSEG2 

SSEG2 

SSEG3 

$SELE 

S'SELE 

$SEO 

* 

SSEQE 

SSEQL 

SSLSC 

$SLMA 

$SL8P 

SSM8N 

$ ? T R I 

$SYFA 

SSYRT 

STAG 

STAGB 

STAGD 

5TENC 

$THRt 

* 

?TIME 

?TLA5 

?TPFF 

STOUT 

$TU8 

STYSD 

SUN IT 

S W 3 1 

$U9? 

$UB3 

SU34 

$UB5 

S Y E A R 

SYMDF 

JYMDH 

$YMDH 

$ V M D H 

S 7 E " a 



DAS 

DBS 

T 

E 

D 

DOFF 

N 

UM 



Y 

NU 

ENDC 

NU 

NU 

CT 

CTL 



ND 

ALE 

X 

EIN 

TH 

NGM 

R 

YP 

IT 
EL 

DIN 

E 

T 

8 

AY 
S 



8R 

o 
pi 



RES 

RES 

HLT SCAP27 

RES 

RES 

RES 

RES 

RES 

RES 
RES 
RES 
RES 
RES 
RES 
RES 

RES 
RES 

RES 

RES 

EOU SCALE 

RES 

RES 

RES 

DATA -50 

RES 

RES 

DATA 020000000 

EOU TAG 

DATA 057777777 

RES 1 

RES 1 



MD 



IND 



IND 



DATA 3 

RES 1 

DATA o 

RES 1 

RES 

DATA 

RES 

RES 

RES 

RES 

RES 

RES 

RES 

RES 

RES 

HLT 

HLT 

HLT 



RUN ID FROM RUN PARAMEIER CARD 

1ST LOC CAN'T CL8BBER-SEG 3 
PLACES TO SHIFT T8 SCALF SL8PE 
8RIGIN 8F SCHEDULE FILE C8VER LABELS 
FIRST TIME 8F SCHEDULE FILE +1 
8R1GIN F8R INPUT 8F SCHED TIME FILE_ 
SChEDULE NUMBER FOR SUKM AR Y RPT Tl NE 



START DAY 



BINARY 



NUM 
END 
NUM 
NUH 
ST A 

RE 
LAS 
STa 

Art 
LAS 
LAo 
SLd 
MAX 
SL3 
STA 
MINU 
STA 
STAR 
INC 
IND 
MAS 
LAS 
STA 

AC 



BEP 8 

SEG 
BER 
BER 8 
RT OF 
CORD 
T +1 
RT OF 
EA,BU 
T + l W 
T +1 
FE SC 
IMUM 
PE VE 
RT M8 
S NUM 
RT YE 
T YEA 
EX TA 
EX TA 
K T8 
T TIM 
RT OF 
TIVIT 



F W 
2. 
F u 
F w 

SA 
F8R 
WD 

SA 
T I 
D & 
WD 
ALfc 
SLO 
CT8 
NTH 
BER 
AR 
R T 
G e 
G b 
DEL 
E + 

SI 
Y K 



8RDS IN PROGRAM SEG 1 
ABR ACT REC START NEXT LOX 
8RDS IN PROGRAM SEG 2 '" 
8RDS IN PROGRAM SEG 3 
VE FOR 1ST uD OF ABR ACT 

NEXT 50 REC- THPEADEDStQ 
8F SELECT AREA 
VE F8R SAME AS SELECT 
N TAPE REC NUM SEO 
F TOP0L SEQLENCED AREA 
OF SEQUENCER AREA 

FACTOR "'" 
PE 

R ORIGIN 
-BINARY MONTH NUMBER "~ ""'" 

RECORDS IN SORT STRING 

YPE 

IT 

IT 

FTE INDEX TAG 

1 

ORAGE FOR 5C COMPLETE 

ECORDS IN THREADED SEQUEN 



TIME VECT8R 8RIGIN 
TIME OF LAST N NQDE 8F NTWRK 
IND TIME VECT8R ORIGIN MINtS 1 
ORIGIN 8F 1IME 8UTPUT AREA 



SAVE 



TYPE OF DAY PROJECT STARTS ON 
BINARY DURATION UNIT TYPE CODE 
COMMON INTERMEDIATE STORAGE 



INDICATES IF CAL DATE 5CD OF BIN 



0670 
0680 
0000 
0650 
0920 
0930 
0000 
"0700 
0710 
1080 



PARH0L*2 

YMDH,2 

PARFM,2 



IND 

IND 
IND 



DATA 
END 



1050 
0000 
0000 
1470 
1480 
0220 
"0230 
0260 
0240 
0250 
0000 
0290 
0000 
0000 
0890 
1090 
0000 
1100 
I05T 
0000 
0000 
0000 
0910 
0260 
0270 
1430 
0900 
0000 
0820 
0000 
1420 
0000 
1250 
0150 
0160 
0170 
0180 
0190 
0604 
1180 
1263 
1265 
1264 
1400 
9995 



oococ 

00002 
00003 
00004 
00035 
00521 
00376 
00607 
00533 
00605 
00606 



STPR9G 

WPSEG1 

WRSES2 

UR3EG3 

SCAP21 

PARFD 

P A R A M B 

PARFM 

SCAP27 

PARH8L 

YHDh 



SSP INPUT/OUTPUT AREA 






00000 
00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00^31 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 



1 




RQRG 000 


2 


$1 AO 


RES 1 


3 


$! Al 


RES 1 


4 


SI A2 


RES 1 


5 


$1 A3 


RES 1 


6 


$1 A4 


RES 1 


7 


SI A5 


RES 1 


8 


$1 A6 


RES 1 


9 


SI A7 


RES 1 


10 


SI A3 


RES 1 


11 


$1 A9 


RES 1 


12 


SI A10 


RES 1 


13 


$1 All 


RES 1 


14 


SI A12 


RES 1 


15 


$ I A 1 3 


RES 1 


16 


$1 A14 


RES 1 


17 


SI A15 


RES 1 


id 


SI A16 


RES 1 


is 


$ I A 1 7 


RES 1 


20 


SI A18 


RES 1 


21 


$1 A19 


RES 1 


22 


SI A20 


RES 1 


23 


SI A21 


RES 1 


24 


SI A22 


RES 1 


25 


SI A23 


RES 1 


26 


SI A24 


RES 1 


?7 


SI A25 


RES 1 


25 


SI A26 


RES 1 


?9 


SIA27 


RES 1 


30 


SI A28 


RES 1 


31 


SI A29 


RES 1 


22 


SI A30 


RES 1 


33 


SI A31 


RES 1 


34 


SI A32 


RES 1 


35 


SI A33 


RES 1 



2060 
2070 
2072 
2074 
2076 
207 8~ 
2080 
2082 
2084 
2086 
2088 
2090 
2092 
2094 
2096 
2098 
2100 
2102 
2104 
2106 
2108 
2110 
2115 
2120 
2130 
2140 
2150 
2160 
2170 
2160 
2190 
2200 
2210 
2220 
2230 



00 



00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00^65 



0006 6 



00000001 
00000063 



00000067 
00000070 
00000071 
00000072 
00000073 
00000074 
G0O0C075 
00000076 
00000077 
0C000100 
00000101 
00000102 
00000103 
0C000104 
000001G5 
00000106 
00000107 
OCOOOHO 
GC00011 1 
0C00011? 
00000113 
000001 14 
00000115 
00000116 
00000117 
00000120 
00000121 
00000122 



36 


S I A 3 4 


RES 




37 


*I A35 


RES 




33 


$1 A36 


RES 




39 


S I A 3 7 


RES 




40 


$1 A38 


RES 




41 


SI A39 


RES 




42 


SI A40 


RES 




43 


SI A41 


RES 




44 


SIA42 


RES 




45 


Si A43 


RES 




46 


$ I A 4 4 


RES 




&7 


SIA45 


RES 




46 


Si A46 


RES 




49 


$1 A47 


RES 




50 


$1 A48 


RES 




51 


$1 A49 


RES 




52 


Si A50 


RES 




53 


$1 A51 


RES 




54 


Si A52 


RES 




55 


$1 A53 


RES 




56 


SINPUTAR 


EQU 


IA1 


^7 


SIAEND 


EQU 


INPUTAR+50 


58 


* 






59 


* 






60 


* 






61 


S6UTAREA 


RES 


33 


62 


* 






63 


$I?AR2 


EQU 


8UTAREA+1 


64 


SPAR3 


EQU 


SUTAREA+2 


65 


$P AR4 


EQU 


8UTAREA+3 


66 


S0AR5 


EQU 


8UTAREA+4 


67 


S8AR6 


EQU 


8UTAREA+5 


68 


$PAR7 


EQU 


8UTAREA+6 


69 


$PAR8 


EQU 


8UTAREA+7 


70 


$flAR9 


EQU 


8UTAREA+8 


71 


S0AR10 


EQU 


9UTAREA+9 


72 


S9AR11 


EQU 


BUTAREA+10 


73 


$8AR12 


EQU 


8UTAREA+11 


74 


JI5AR13 


EQU 


8UTAREA+12 


75 


?PARl4 


EQU 


8UTAREA+13 


76 


S8AR15 


EQU 


8UTAREA+14 


77 


SPAR16 


EQU 


8UTAREA+15 


7 6 


SOAR 17 


EQU 


8UTAREA+16 


79 


SPAR18 


EQU 


8UTAREA+17 


80 


$ e a r 1 9 


EQU 


8UTAREA+18 


PI 


SPAR20 


EQU 


8UTAREA+19 


P2 


$ 9 A R 2 1 


EQU 


8UTAREA+20 


Bl 


SPAR22 


EQU 


8UTAREA+21 


84 


SPARES 


EQU 


8UTAREA+22 


65 


«l? AR24 


EQU 


8UTAREA+23 


86 


$©AR25 


EQU 


8UTAREA+24 


87 


S5AR26 


EQU 


8UTAREA+25 


88 


SPAR27 


EQU 


8UTAREA+25 


89 


SPAR28 


EQU 


8UTAREA+27 


50 


$P AR29 


EQU 


8UTAREA+28 



8UTPUT AREA 8F 132 CHARACTERS 



2240 

2250 

2260 

2270 

2280 

22^0 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

24 50 

2510 

2520 

2530T 

2540 

2550 

25^0" 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 



G000C123 
00000124 

0000012=; 

00000126 
00000127 



00127 

00000127 
00000153 
00000154 
00000155 
00000157 
00000160 
00000161 
00001157 
00000156 
00000177 
00000200 
00000201 
00000202 
00001157 
00001160 
00001161 
00001203 
00001204 
00001221 
^ 00000401 



00000200 



00000 




oonoo 


00000000 


00001 


20000000 


00002 


00000033 


00003 


01000000 


00004 


02000000 


00005 


05000000 


00006 


60606060 


00OC7 


00000054 


0001C 


0C000060 


0001 1 


00000030 


00012 


00000024 


U0013 


00O0U06* 



91 


SG AR30 


EQU 


OUTAREA+29 




2850 


92 


SCAR31 


EQU 


OUTAREA+30 




2860 


9 3 


SPAR32 


EQU 


OUTAREA+31 




2870 


94 


S0AR33 


EQU 


OUTAREA+32 


LAbT WORD OF OUTPUT AREA 


2880 


95 


$eUTAREAL 


EQU 


OUTAREA+33 


LA6T+1 UORD OF OUTPUT AREA 


2890 


96 


* 




P* 


RAMETER REGION 


3000 


97 


* 








3010 


98 


SPARAMET 


HES 


570 


STORAGE AREA FOR PARAMETERS 


3020 


59 


SPARAHED 


EQU 


PARAMET 


START OF RUN HEADING AREA 


3030 


100 


SPARAMA 


EQU 


PARAMET+20 


START OF PARAMETER A AREA 


3040 


101 


SPARA2 


EQU 


PARAMET+21 




3050 


1C2 


$ P A R A 3 


EQU 


PARAMET+22 




3060 


1C3 


SPARA5 


EQU 


PARAMET+24 




3070 


1C4 


$PARA6 


EQU 


PARAMET+25 




3080 


105 


$PARA7 


EQU 


PAPAMET+26 




3090 


106 


SRUNIND 


EQU 


PAPAMET+536 


RUN OPTION INDICATORS 


3100 


1C7 


SPARA4 


EQU 


PARAMET+23 




3110 


1C8 


SPARhOL 


EQU 


PARAMET+40 


START OF HOLIDAY AREA-TYPE CODE 


3120 


1 C^ 


$PARFD 


EQu 


PAPAMET+41 


1ST HOLIDAY DAY 


3130 


1 10 


SPARFM 


EQU 


PARAMET+42 


1ST HOLIDAY MONTH 


3140 


111 


$PARFY 


EQU 


PARAMET+43 


1ST HOLIDAY YEAR 


3T?0 


1 12 


SPARAMB 


EQU 


PARAMET+536 


START OF PARAMETER B AREA 


3160 


113 


SRUNIDA 


EQU 


PARAMET+537 


1ST UD RUN ID 


3170 


114 


$RUNID3 


EQU 


PAPAMET+538 


2ND UD RUN ID 


3180 


115 


$PARNA 


EQU 


PARAMET+556 


NUMBER OF ACTIVITIES 


3]85 


116 


SPARNE 


EQU 


PARAMET+557 


NEMBER OF tVEMTS 


3186 


11 7 


SPAREND 


EQU 


PARAHET+570 


LOG OF LAST PARAMETERS + 1 


3190 


115 


SLASTPRL 


EQU 


PARAMET+170 




3200 


1 1 9 


$YMDH 


EQU 


PAPFD 


1SI UD OF 3UD PER HOLT IN PARAM AREA 


3210 


120 




END 






9999 



DSRP COMMON DATA AND STORAGE 



1 


* 






2 


• 






3 




RORG 





4 


S2ER0 


DATA 





5 


SBCDPL 


DATA 


020000000 


6 


SBCDDP 


DATA 


000000033 


7 


SFCD1000 


DATA 


'1000* 


8 


SBCD2000 


DATA 


'2000* 


9 


SBCD5000 


DATA 


'5000* 


10 


SFCDBLK 


DATA 


a . * 


1 1 


SRCDASS 


DATA 


* ** 


12 


SPLK1CH 


DATA 


» » 


1 3 


$H 


DATA 


»M* 


14 


SD 


DATA 


*D* 


15 


$U 


DATA 


*U* 



COMMON STORAGE REGION 1000 

PEKMENANT DATA REGION 1010 

1020 
1025 
1030 
1040 
1044 
1048 
1050 
1060 
1070 
1080 
1090 
1100 
1110 



BCD 


PLUS 




BCD 


DECIMAL POINT 


PCD 


1000 




BCD 


2000 




BCD 


5000 




BCD 


BLANK UORD 




BCD 


ASTERISK 




BCD 


1 CHARACTER 


Blank 


PCD 


1 CHARACTER 


H 


BCD 


1 CHARACTER 


D 


BCD 


1 CHARACTER 


U 



o 
o 



00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 

00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 

00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 



0CO0O044 
00000023 
00000045 
00000070 
00006060 
60604560 

00006264 
00004446 
00006364 
00006625 
00006330 
00002651 
00006221 

00412145 
00262522 
00442151 
0021475! 
00442170 
00416445 
00416443 
00216427 
00622547 
00462363 
00454665 
00242523 

77000000 
77770000 
77777700 
00770000 
00777700 
00777777 

00007700 
00007777 
O0OC0077 
37777777 
00003777 
4C007777 
00000017 
00037777 
40000000 
00010000 



00 00244 
CO 00453 
00 00455 
00 00454 
00 00000 



00 
00 



01433 
00455 



16 


$M 


DATA 


*M* 


17 


SBCDC 


DATA 


*C* 


13 


$BCDN 


DATA 


*N* 


19 


SBCDY 


DATA 


*Y* 


20 


5BLKDAY 


DATA 


» 


21 


$KAT3 


DATA 


» 


22 


SDAYUK8 


RES 


1 


23 


SDAYSUK 


DATA 


*SU 



24 SM8NYR8 

25 SM8NYR 



26 



MB' 



TU' 



UE' 



BCD 1 CHARACTER M 1120 

BCD 1 CHARACTER C 1130 

BCD 1 CHARACTER N 1140 

BCD 1 CHARACTER Y 1150 

BCD 2 CHARACTER BLANK _ 1J60 

BCD N IN 3RD CHARACTER "P9STTlW""'l l'TO' 

DAYS 8F THE UEEK 1180 

*TH*»*FR*»*SA* 1190 



RES 1 
DATA *JAN J 



FEB' 



MAR J 



MONTHS OF "THE TFAR 
APR*,*MAY*#*JUN*.*JUL J 



DATA *AUG'.*SEP*.*OCT*,»NeV***DEC' 



00 00454 
00000002 



2 7 * 

23 $MASK1 

29 SMASK12 

30 SMASK123 

31 SMASK2 

32 ?MASK23 

33 SMAS234 

34 SMASK3 

35 JMASK34 

36 $MASK4 
27 JMASKN 
33 SMASK11R 

39 SMASK11L 

40 $MASK9 
4 1 JMASKAD 

42 $MASKNG 

43 SPNE11 

44 * 

45 SDVOFMl 

46 SYMDHM1 
A7 JYMDHP1 
43 JYMDH8 

49 $TAG 

50 5MAXL8C 

51 SL8CPRB 

52 SPARFMLC HLT 

53 $PARFDLC HLT 

54 SRPUN8 DATA 



MASK! 



DATA 077000000 

DATA 077770000 

DATA 077777700 

DATA 000770000 

DATA 000777700 

DATA 000777777 

DATA 000007700 

DATA 000007777 

DATA 000000077 

DATA 037777777 

DATA 000003777 

DATA 040007777 

DATA 000000017 

DATA 037777 

DATA 040000000 

DATA 000010000 



8NE Al BM 8F 11 
IrtSTPUCr I8N REGI8N 



HLT 
hLT 
HLT 
HLT 

HLT 
RES 
HLT 



DAYBFF-1,2 

YMDH-1.2 

YMDH+1.2 

YMDH,2 

0*2 

1 

PARAMB 

PARFM 

PARFD 

2 



TTOIT 
1210 



1220 



1230 
lj?40 
1250 
1255 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1422 
1424 
1426 
1430 
1440 
1452 
1454 
1456 
1457 



00101 
00102 
00103 
00104 
00103 
00106 
00IC7 

001 10 
00111 
00112 
00113 
00114 
001 15 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
001^7 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 

00163 
00164 
00165 





55 


$TVM1 


RES 








56 


STVM2 


RES 








57 


SMN8FF 


RES 








58 


$T8FF 


RES 








59 


SA98FF 


RES 






2 00 00402 


60 


JH9LDM1 


rll 


H9LB1N-1, 


2 


35 00454 


61 


SH8LINIT 


STA 


PARH6L+1 






62 


* 






REGULAR 


00000035 


63 


SACTNUMUD 


DATA 


29 






64 


SCHINDEV 


RES 








65 


SCURH8L 


RES 








66 


SDUR1 


RES 








67 


SDUR2 


RES 








68 


SDURJ 


RES 








69 


$DS 


RES 








70 


SFiMDFILE 


RES 






00000000 


71 


$ERI 


DATA 







00000000 


72 


$ERJ 


DATA 







00000000 


73 


$FRD 


DATA 









74 


SFNDAC 


RES 


1 






75 


SFIRPAS 


RES 


1 






76 


$L INCNT 


RES 


1 






77 


JLINEC 


RES 


1 






76 


SL8STDYS 


RES 


1 






79 


SMAJ0R 


RES 


1 






6 


SNA 


RES 


1 






SI 


$NE 


RES 


1 






8 2 


SNEP2 


RES 


1 






63 


SNEGACUD 


RES 


1 






84 


SNDY3FF 


RES 


1 






85 


$NWD 


RES 


1 






86 


SKu'DPU 


RES 


1 






67 


SNUHPD 


RES 


1 






85 


SSYRTYP 


RES 


1 




00000000 


e9 


SPRNTC8DE 


DATA 







00001072 


90 


SPARNUMWD 


DATA 


570 




00000000 


91 


$PGINDEV 


DATA 









92 


SFUNIDAS 


RES 


1 






9 3 


SRUMDBS 


RES 


1 






94 


SSDAY 


RES 








95 


SSM8NTH 


RES 








96 


SSDTIY 


RES 


1 






97 


SSYEAR 


RES 








98 


STYSDAY 


RES 








99 


STCPSA 


RES 








ICO 


STC8SB 


RES 








ici 


SUNITS 


RES 








1C2 


$DAY 


RES 








1C3 


SM8NTH 


RES 








104 


$YEAR 


RES 








1C5 


SYMDF8R 


RES 






00000110 


1C6 


SK'UREC 


EOU 


ACTNUMUD 






1C7 


SUBl 


RES 








1C8 


SUB2 


RES 








1C9 


? W B 3 


RES 







N8 TAG TIME VECT8R - 1 
N8 TAG TIME VECT8R - 2 



DUMMY F8R 1ST UD J^AL H8LDAS 
SCALAR TEMP. REGTOft 

N8) WDS> IN ACTIVITY REC8RD 



DURATI8N DAY - BCC 

DURATIPN M8NTH - JBCD 

DURATION YEAR 6 R "e"A S YC ON T T-~BUTT 

DURATION OF SCHEDULE 

F8R ST8RAGE 8F 
I.J. AND DUPE C8DE 
FOR ERR8R PRINT8UT 
8UTAREA + ACTNUMUE 
FIRST PASS INDICTQR 
LINE C8UNTER 



MAJ8R ACTIVITY INEICT8R 
NUMBER 8F ACTT VTTTT5 
NUMBER 8F EVENTS 
NUMBER 0F „ EV JE_NT S + 2 

neg. or noy~uds~ liTTCr. "ptest 

NO. DAYS-OFF PER WK 
NUMBER OF WORKING DAYS 
NUMBER 9F"08t?"KTR^""DATS FER WER~ 
NUMBER 9F U8RKING HRS PER DAY 
STAR! YEAR TYPE 



1460 
1470 
1.4 80 
1490 
1500 
1505 
151_0_ 
1520 
1530 
1540 
T55~0~ 
1560 
1570 



1580 

1590 

1595 

1600 

1610 

1620 

16 30 

1640 

1650 

T6F5" 

1658 

1660 



START DAY 

START MONTH 

START DAY TYPE 
START YEAR 

TYPE DAY PR5J.UI AFIS-W " " 
DOUBLE PRECISION 
T8TAL C8ST 
B A S I C UN r T5 rfFE~7TnJICAT6fr" 



YMD FORMAT INDICATOR 



1670 
1680 
1685 

"1688 
1690 
1700 

- T7lir 
1720 
1726 
T 730 
1735 
1740 
1745" 
1748 
1750 
1760 
1764 
1770 

~T775 
1780 
J.790 
1 8W 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 






001 66 


0Q1 67 


001 7 


P02C7 


C ? 2 6 


00?45 


00?54 


00?55 


0076 6 


00257 


ou?6o 


00?6 1 


00262 


00263 


D 2 6 4 


CO?? 5 


? 6 6 


00? c 7 


00?70 


0027 1 


? 7 ? 


00?73 


00274 


0027 3 


00276 


00^77 


C03C0 


003C1 


0070 2 


G0"»C3 


"* C 4 


CU7C5 


CG3C6 


003 C 7 


00310 


0031 1 


0031 2 


0tni3 


0U3 1 4 


00315 


00"M 6 


00"M 7 


00320 


00321 


3 2 2 


003 5 3 


00^2 4 


007 2 5 


00326 


00327 


00 •'30 


00331 


00332 



1 10 


J U B 4 


RES 1 




1 1 1 


SI. -3? 


RES 




1 12 


* 






1 ! 3 


? h y d r 


RES 


1? 


1 14 


T: N H Y 


RES 16 


1 16 


*^0L9RG 


RES 


1 6 


1 16 


5DAY3FF 


RE 3 7 


1 17 


* 






1 16 


$1 An 


RES 1 




1 1 * 


J 1 A 1 


RES 1 




120 


4 1 A2 


RES 




121 


$1 A3 


RES 1 




122 


J I A4 


RES 




12 3 


4 1 A- 


RES ] 




124 


$ I A6 


RES 




1?3 


*. I A 7 


RES 




1 ? 


•t ] A ft 


^E3 




127 


6 I a o 


RES 




123 


J I A 1 Q 


RES 




1?* 


5 I A 1 1 


RES 




130 


?! A 1 2 


RES 




131 


* 1 A 1 J 


RES 




132 


* I A 1 4 


RES 




1 73 


5 I A J 5 


RES 




134 


$ T A 1 6 


RES 




1 T w 


* I A 1 7 


RES 




13o 


> 1 A l 5 


RES 




13/ 


* I a i •; 


RES 




1 "* *■ 


M a 20 


RES 




1 11 


*I 4?1 


RES 




140 


* I A 2 2 


RES ] 




1 £ 1 


.« I A 2 3 


REa 1 




1 4 2 


? I A24 


RES 1 




1 43 


SI A26 


RES 




1 44 


SI A?c 


RES 1 




146 


*I A27 


RES 1 




1 46 


i 1 A 7 3 


RES 




147 


f : I A 2 * 


RES 




14-S 


> I A 3 


RES ] 




1 49 


J I A 3 1 


RES 




l c 


SI A32 


RES 1 




161 


SI A33 


RES 1 




1 62 


$ T A 3 4 


RES 




1 6 3 


$ I A 3 -o 


RES 1 




1 64 


$ I A ? c 


RES 1 




165 


4 1 A37 


RES 1 




l c 6 


4 1 A 3 1* 


RES 1 




167 


41 A39 


RES 




1 6 3 


?! A 4 


RES 




1 c * 


J ! A A 1 


RES 




160 


5 I A 4 2 


RES 




161 


5! A43 


RES 




162 


J I A 4 4 


RES 




163 


1 I A 4 5 


RES 




1 64 


5 I A4c 


RES 





REC;. VECTOR TEMR. REGION 

NUMBcP OF WORKING DAY? 
NUMBER OF hRL I DA r S PEP 
HOLIDAY 9RGINS 

DAY-BFF VECTOR 
INPUT RcGlON 

CODE 

I 

J 

DuP 

E 

A 

COSTB - 1 

COSTS - 2 



PER YEAR 

YEAR 



indicators 
miles1pne - 1st 
milestone - 2nd 
cost center 

CODE 
RESPONSIBILITY 



uaRD 

WORD 



ACTJV 

ACTIV 

ACT IV 

ACTIV 

ACTIV 

ACTIV 

ACTIV 

ACTIV 

Y 

N ! 

K 

COSTA 

COSTA 

MILES 

DORAT 

COST 

FREE 

T9T AL 

EARLY 

EARLY 

LATE 

LATE 

CHIT I 

EARLY 

EARLY 

LATE 

LATE 

EARLY 

EARLY 

LATE 

LATE 

EARLY 



1TY 
1TY 
iTY 
ITY 
iTY 
ITY 
ITY 
iTY 



DESCRIPTION 
DESCRIPTION 
DESCRIPTION 
DESCRIPTION 
DESCRIPTION 
DESCRIPTION 
DESCRIPTION 
DESCRIPTION 



- 1 

- 2 

IONE flag -BCD 

ipn-binary 
float 

FLOAT 

START -BASIC UNITS 

FINISH - BASIC UMTS 
START - BASIC UNITS 
FINISH - BASIC UNITS 
CAL INDICATOR - BCD 

START - DAY UNITS 

FINISH - DAY UNITS 
START - CAY UNITS 
FINISH - DAY UNITS 

START DAY 

FINISh DAY 
START DAY 
FINISH DAY 

START MONTH 



1890 

1900 

2000 

2002 

2004 

2006 

2010 

2060 

2070 

2072 

2074 

2076 

2078 

2080 

2082 

2084 

2086 

2088 

2090 

2092 

2094 

2096 

2098 

2 ICO 

2102 

2104 

2106 

21C8 

2110 

21 15 

2120 

2130 

2140 

2150 

2160 

2170 

2180' 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

23C0 

2310 

2320 

2330 

2340 

2350 

2360 



00333 
00334 
00335 
00336 
00337 
00340 
00341 



00342 



CO 



00403 



00000255 
00000337 



00000343 
00000344 
00000345 
00000346 
00000347 
00000350 
00000351 
0000035? 
00000353 
00000354 
00000355 
00000356 
00000357 
00000360 
00000361 
00000362 
00000363 
00000364 
00000365 
00000366 
00000367 
00000370 
00000371 
0000037? 
0C000373 
00000374 
0G00037S 
00000376 
00000377 
00000400 
00000401 
0000040? 
00000403 



00000403 
00000427 
00000430 
00000431 
00000433 



165 


$IA47 


RES 




ltt 


$1 A48 


RES 




167 


SIA49 


RES 




163 


$! A50 


RES 




169 


S I A 5 1 


RES 




170 


4IA52 


RES 




171 


SIA53 


RES 




172 


SINPUTAR 


ECU 


IA1 


173 


4IAEND 


ECU 


INPUTAR+50 


174 


* 






175 


* 






176 


* 






177 


$<?UTAREA 


RES 


33 


178 


* 






179 


$8AR2 


ECU 


BUTAREA+1 


jeo 


S8AR3 


ECU 


8UTAREA+2 


ipi 


$8AR4 


EGU 


OUTAREA+3 


ie2 


$8AR5 


ECU 


8UTAREA+4 


183 


$8AR6 


EGU 


8UTAREA+5 


184 


S 8 A R 7 


EOU 


8UTAREA+6 


185 


S8AR8 


EQU 


8UTAREA+7 


166 


J8AR9 


ECU 


BUTAREA+8 


187 


$ P A R 1 o 


EOU 


BUTAREA+9 


188 


S8AR11 


EQU 


8UTAREA+10 


189 


S6AR12 


EGU 


BUTAREA+11 


150 


S8AR13 


EOU 


8UTAREA+12 


151 


$8AR14 


EQU 


BUTAREA+13 


152 


$8AR15 


EQU 


8UTAREA+14 


153 


$f?ARl6 


EQU 


8UTAREA+15 


154 


S6AR17 


EQU 


8UTAREA+16 


155 


S9AR18 


EQU 


8UTAREA+17 


156 


S8AR19 


EQU 


BUTAREA+18 


157 


$©AR20 


EQJ 


8UTAREA+19 


158 


SPAR21 


EQU 


8UTAREA+20 


159 


S8AR22 


EQU 


8UTAREA+21 


2C0 


$8AR23 


EQU 


8UTAREA+22 


201 


S8AR24 


EQU 


8UTAREA+23 


2C2 


$8AR25 


EQU 


8UTAREA+24 


2C3 


S8AR26 


EQU 


8UTAREA+25 


2C4 


SPAR27 


EGU 


8UTAREA+26 


205 


S8AR28 


EQU 


8UTAREA+27 


2C6 


SBAR29 


EQU 


8UTAREA+28 


207 


$6AR30 


EQU 


8UTAREA+29 


2C8 


SSAR31 


EQU 


8UTAREA+30 


2C9 


S8AR32 


EQU 


8UTAREA+31 


?10 


$fl AR33 


EQU 


8UTAREA+32 


?1 1 


SRUTAREAL 


EQU 


8UTAREA+33 


?12 


* 






213 


* 






214 


SPARAMET 


RES 


570 


215 


SPARAHED 


EQU 


PARAMET 


216 


JPARAMA 


EQU 


PAPAMET+20 


?17 


$PARA2 


EQU 


PARAMET+21 


218 


$PARA3 


EGU 


PARAMET+22 


219 


SPARA5 


EQU 


PAPAMET+24 



EARLY FINISH M8NTK 
LATE START M8NTH 
LATE FINISH MBNTH 
EARLY START YEAR 
EARLY FINISH YEAR 
LATE START TEAR 
LATE FINISH YEAR 



8UFPUT AREA 8F 132 CHARACTERS 



LAST U8RD 8F 8UTPUT AREA 
LAST+1 U8RD BF 8UTPUT AREA 
PARAMETER REGIBN 

STORAGE AREA F8R PARAMETERS 
START 3F RUN HEADING AREA 
STmRT BF PARAMETER A AREA 



2370 

2380 

2390 

2400 

2410 

2 4~20~ 

2430 

2440 

2510 
2520 

~25~30~ 
2540 
2550 
2560 
2570 
2580 
2550 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 

"2680 
2690 
2700_ 
2710 
2720 

2740 

2760 

2770 

2780" 

2790 

2800 

2810 

2820 

2830 

~2841T 
2850 
2860 
1E7JT 
2880 
2890 

"3TJDTJ 
3010 
3020 
3030" 
30^0 
3050 
3060 
3070 



01475 



C0000434 


220 


SPARA6 


EQU 


PARAMET+25 


0000043? 


221 


SPARA7 


EQU 


PARAMET+26 


0C001433 


222 


SPUNIND 


EQU 


PAPAMET+536 


00000432 


223 


$PARA4 


EQU 


PARAMET+23 


00000453 


224 


SPARhOL 


EOU 


PAPAMET+40 


00000454 


225 


SPARFD 


ECU 


PARAMET+41 


00000455 


226 


S P A R F M 


EQU 


PARAHET+42 


00000456 


227 


$PARFY 


EQU 


PARAMET+43 


00001433 


228 


SPARAMB 


EQU 


PARAMET+536 


00001457 


229 


SPARNA 


EQU 


PARAIiB + 20 


00001434 


230 


SRUNIDA 


EQU 


PARAMET+537 


00001435 


231 


SRUNIDB 


EQU 


PARAMET+538 


00001475 


232 


$PAREND 


EQU 


PARAMET+570 


00 00655 


23 3 


SLASTPRL 


HLT 


PAPAMET+170 


00000403 


234 


SHOLBIN 


EQU 


PARAMET 


00000454 


235 


SYMDh 


EQU 


PARFU 


00000167 


236 


SNUDYMl 


EQU 


NUDY-1 


00000206 


237 


SNHYM1 


EQU 


NHY-1 


00000225 


238 


SH9L3M1 


EQU 


HOLoRG-1 


00001457 


239 
240 


SBCDMA 


EQU 
END 


PAPAMET+556 



RUN OPTION INDICATORS 

START OF HOLIDAY AREA-TTPE CODE 

1ST HOLIDAY DAY 

1ST HOLIDAY MONTH 

1ST HOLIDAY YEAR " 

START OF PARAMETER B AREA 



1ST WD RUN ID 
2ND UD RUN ID 
LOC OF LASJ PARAMETER + 1 



3080 

3100 
3110 
3120 
3130 
3140 
3T50 
3160 
3165 
"3TT0~ 
3180 
3190 



3200 
3210 
3220 
~32W 
3240 
3250 
3270 
9999 



4^ 



PEP COMMON DATA AND STORAGE 



oooco 




00000 


20000000 


00001 


20606060 


oonc2 


4C606060 


00003 


00000033 


00004 


01000000 


00005 


02000000 


00006 


0500GOOO 


000C7 


06000000 


00010 


00000001 


00011 


oooooooo 


00012 


00000002 


00013 


71117717 


00014 


37777777 


00015 


60606060 


00016 


00000054 


00017 


00000060 


00020 


00000030 


00021 


00000024 


00022 


O0O0U066 


00023 


00000023 


00024 


00000045 



1 


* 






2 


* 






3 




RORG 





4 


SBCDPL 


DATA 


020000000 


5 


SPCDPLBK 


DATA 


'+ * 


6 


SBCDNEG 


DATA 


# _ 3 


7 


SBCDDP 


DATA 


000000033 


8 


SBCD1000 


DATA 


•1000* 


9 


$BCD2000 


DATA 


'2000* 


10 


$BCD5000 


DATA 


'5000' 


11 


$BCD6000 


DATA 


'6000* 


12 


SONE 


DATA 


1 


13 


SZERH 


DATA 





14 


$tuo 


DATA 


2 


15 


SMONE 


DATA 


-1 


16 


SDACTI 


DATA 


037777777 


17 


SBCDBLK 


DATA 


» » 


18 


SBCDASS 


DATA 


* ** 


!9 


SBLK1CH 


DATA 


* j 


?0 


<SH 


DATA 


*H* 


21 


$D 


DATA 


*D* 


22 


$U 


DATA 


*U* 


23 


SBCDC 


DATA 


'C* 


24 


SBCDN 


DATA 


*N* 



COMMON STI 
PEKMENANT 



RAGE 


: REGION 


1000 


DATA 


i REGION 


1010 






1020 


BCD 


PLUS 


1030 
1031 






1034 


BCD 


DECIMAL POINT 


1040 


BCD 


1000 


1044 


BCD 


2000 


10^8 


BCD 


5000 


1050 
1051 






1052 
1053 
1054 






1055 
1056 


BCD 


BLANK WORD 


1060 


BCD 


ASTERISK 


1070 


BCD 


1 CHARACTER BLANK 


1080 


BCD 


1 CHARACTER H 


1090 


BCD 


1 CHARACTER D 


1100 


BCD 


1 CHARACTER U 


1110 


BCD 


1 CHARACTER C 


1130 


BCD 


1 CHARACTER N 


1140 



00025 


00000070 


00026 


00006060 


00027 


60604560 


00030 




00031 


00006264 


00032 


00004446 


00033 


00006364 


00034 


0000662* 


00035 


00006330 


00036 


002 651 


00037 


00006221 


000 4 




00041 


00412145 


00042 


00262522 


00043 


00442151 


00044 


00214751 


00045 


00442170 


0004 6 


00416445 


00047 


00416443 


00050 


00216427 


G0051 


00622547 


00052 


00462363 


00053 


00454665 


00054 


00242523 


00055 


77000000 


00056 


77770000 


00057 


77777700 


00060 


00770000 


00061 


00777700 


00062 


00777777 




00000062 


00063 


00007700 


00064 


00007777 


00065 


00000077 


00066 


77777777 


00067 


37777777 


00070 


00C03777 


00071 


40007777 


00072 


00000017 


00073 


00037777 


00074 


00077777 


00075 


40000000 


00076 


00010000 


00077 




00100 


0000004 1 


001 01 


00001005 


001C2 


77776773 


00103 


77777022 


00104 


00000101 


00105 


77777677 


00106 


00000001 


00107 


2 00 00361 


001 10 


2 35 00413 



25 


$ o c D Y 


DATA 


* Y* 


26 


SBLKDAY 


DATA 


• * 


27 


SNAT3 


DATA 


N * 


28 


IDAYwKO 


RES 


1 


29 


SDAYSUK 


DATA 


*SU*,*M8*, 



fU*. 'US- 



BCD 1 CHARACTER Y 1150 

BCD 2 CHARACTER BlANK 1160 

BCD N IN 3RD CHARACTER POSITION 1170 

DAYS OF THE WEEK 1180 

*TH*,*FR*,*SA* 1190 



30 SM8NYR9 

31 $M8NYR 



RES 1 MONTH'S ~9'F" THE - YEAH" 

DATA * JAN'.'FEB'.'MAR'.'APR'j'KAY'j'JUN'.'JUL* 



32 



33 * 

34 $M 

35 $M 

36 $M 

37 $M 

38 $M 

39 $M 

4 $M 

41 SM 

42 $M 

43 $M 

44 $M 

45 $M 

46 $M 

47 $M 

48 $M 

49 $M 

50 $M 

51 $M 

52 $e 

5 3 $N 

54 $R 

55 $N 

56 $N 

57 $N 

58 SN 

59 $N 

60 $R 

61 * 

62 $D 

63 $U 



DATA *AUG*.*SEP J 



OCT' 



N6V- 



DEC 



ASK1 

ASK12 

ASK123 

ASK2 

ASK23 

AS234 

ASK234 

ASK3 

ASK34 

ASK4 

ASK1234 

ASKN 

ASK11R 

ASK11L 

ASK9 

ASKAD 

ASKADR 

ASKNG 

NE11 

USEG2 

LNUMUT 

UPARF 

NUPARF 

NUHEP 

UBAR 

WBARN 

PUN8 

Y6FM1 
C1ST8 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

EQU 

DATA 

DATA 

DATA 

DATA 

DATA 

DAT* 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
RES 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

hLT 
STA 



MASKS 

077000000 

077 770000 
077777700 

000770000 

000777700 

000777777 
MAS234 . 

000007700 "~ ~ 

000007777 

000000077 
07777 7777 

037777777 

000003777 

040007777 

000000017 

037777 

000077 77 7 

040000000 

000010000 8NE AT BM 8F 11 

1 N8. 8F W8RDS-IN 5EG. TW ~ 

33 NUMBER CJF UDS. IN DSRP 8UTPLT REC. 

517 NUMBER OF UOS. IN PARAMETER FILE REGI8N 

-517 NEGATIVE 8F NUPARF " 

-494 NEG. 8F N8. UDS. 1ST H8L. TQ END PAR. REG, 
65 N8. UDS. IN BCD ACTIVITY REC8RD 

-65 NEG. 8F NWBAR " :~~ " 

1 REPORT UNIT NUMBER 

IMSTRUCriSN REGIBN 



1200 
1210 



1220 



1230 
1240 



1250 
1255 
1260 



1270 

1280 

1281 

1290 

1300 

131_0 

1311 

1320 

1_34 

1350" 

1360 

1370 

1371 

1380 

1390 



DAY8FF-1.2 
USCR1+18-2 



T39T" 
1392 
1393 
1394 
1395 
1396 
T397 
1398 
1400 
1410 
1422 






00111 

00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 

00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
00174 
00175 
00176 



2 35 00435 


64 


SUC2ST0 


STA 


USCR2+18 


,2 




1424 


2 GO 00000 


6 5 


STAG 


HLT 


0*2 






1430 


57777777 


66 


STAGDEL 


DATA 


057777777 




DELti'lE TAG MASK 






67 


SMNOFF 


RES 


1 




UITH TAB 


1440 




68 


SDRTSOFF 


RES 


1 




WITH TAB - - - - ■-■ 


1445 




69 


STAFF 


RES 


1 




WITH TAB 


1448 




70 


SABRACM 


p*ES 


1 










71 


SABRAC 


RES 


1 




TAG ORG. MISC. UD. AeR. ACT. REC. 


T450 




72 


SA3RACM1 


RES 


1 




TAG ORG.-l MISC. UD. ABR ACT. REC. 


1455 




73 
74 


SABRACI 
SA3RACIM1 


RES 

RES 


1 
1 




TAG ORG. I UD. OF ABRV. ACT. REC. 


1460 




TAG ORG.-l I UD OF AePV. ACT REC. 


1465 




75 


SABRACJ 


RES 


1 




TAG ORG. J UD. OF ABRV. ACT. REC. 


1470 




76 


SABRACJM1 


RES 


1 




TAG ORG.-l J UD OF ABRV. ACT REC. 


1475 




77 


$ABRACIL 


RES 


1 




TAG LAST+1 I UD OF ABR. ACT. REC. 


1480 




78 


SA9RACJL 


RES 


1 




TAG LAST+1 J UD 8F ABR. ACT. REC. 


1485 




79 

eo 


SNXTMSTA 

$SEQ 


RES 

RES 


1 

1 




LAST+1 MISC. UD. (INC. DELETS) 


1490 




START SELECTED INFO, ORG. SEQ 


1492" 




ei 


STHREDIN 


RES 


1 




START SORT TAPE OUTPUT AREA 


1494 




ps 


SSELECT 


RES 


1 




BEGINNING OF SELECT A*EA NO TAG 


1495 




83 


SSELECTL 


*E3 


1 




TAG LAST + l SELECTE INFO IN T5"P8T 3TQT4T6 




84 


SSEOL 


RES 


1 




TAG LAST+1 SELECTED INFO. ORG SEQ 


1498 




85 


SSECEND 


RES 


1 




LAST+1 SELECTED INFO, ORG SEQ 


1500 




86 


* 






REGULAR SCALAR TEMP. REGI5N 


1520 




r*7 


$ A C T K 


RES 


1 




NO. LAST ACT.+l OF THREAD 


1522 




88 


$ A C T H 


RES 


1 




NO. OF STARTING ACT. OF NETUORK 


1524 


00 00000 


89 


SCARDSTI 


HLT 





INI 


LOC TO ST© ACT. CRD CHANGES fTASJ 


1526 ' 


00 00000 


50 


SCARBSTMX 


HLT 





MAX 


. VALUE OF CARDSTI 


1527 




91 


SBRANCHB3 


RES 


1 


INPUT DEVICE INDICATOR - BINARY 


1530 


00000000 


92 


SCHINDEV 


DATA 


c 






1540 




93 


SCURHOL 


RES 


1 






1550 




94 


SCURACT 


RES 


1 




CURRENT ACTIVITY 


1555 




9b 


snuRi 


RES 






duration Dvnr -"Bur~~ 


1560 ■ 




96 


$DU<?2 


RES 






DURATION MONTH - BCD 


1570 




97 


SDUR3 


*ES 






DURATION YEAR OR BASIC UNIT-BCD 


1580 




98 


SDJR 


RES 








"15915 




99 


5ENDFILE 


RES 








1595 




ICO 


SDAT8ASU 


RES 


1 






1596 




1C1 


$DA 


RES 


1 




ACTUAL DURATION 


i59 7 




1C2 


SDIFA 


RES 


1 




ACTUAL DIFFERENTIAL DURATION 


1598 


00000000 


1C3 


$ERI 


DATA 







FOR STORAGE OF 


1600 


ocoooooo 


1C4 


fERJ 


DATA 







I, J, AND DUPE "CODE ~ 


1610 


00000000 


1C5 


SERD 


DATA 







FOR ERROR PRINTOUT 


1620 




1C6 


SEXPFDY 


RES 






EXP. PROJ. FIN. EAY 


1630 




1C7 


SFXPFMN 


RES 






EXP. PROJ. FIN. HG NTH 


1632 




1C3 


SEXPFYR 


RES 






EXP. PROJ. FIN. YEAR 


1634 




1C9 


SEFFDAY 


RES 




EFFECTIVE DATE - 3 PART , BCD 


1636 




110 


SEFFMON 


RES 








16 3T 




111 


SEFFYER 


RES 








1638 




1 12 


$FPI 


RES 




FIRST PROGRESS RUN INDICATOR 


1639 




113 


SKMAT 


RES 








-T6*U~ 




114 


$K 


RES 


1 






1643 




1 15 


$tf 


RES 


1 






1644 




11.6 


^M 


RES 


1 






1645 




117 


SLINCNT 


RES 


1 




LIME COUNTER 


1650 


00000000 


118 


SLOSTDYS 


DATA 















00177 
00200 
00201 
00202 

00203 
00204 
00205 
002C6 

00207 
00210 
0021 1 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
002^6 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00?56 
00257 
00260 
00261 
00262 
00263 



00000000 



00000202 



00000206 



00000000 
00000000 



00000000 



119 


SLINEC 


DATA 


120 


SMAJ8R 


RES 1 


121 


SMAXLOC 


RES 1 


122 


SMAXLAAR 


RES 1 


123 


SMAXABR 


EQU HAXLAAR 


124 


$MACC 


RES 1 


125 


$NA 


RES 1 


126 


$NE 


RES 1 


127 


SNANRM 


RES 1 


128 


SNGNA 


EQU NANRM 


129 


SNUMAC 


RES 1 


130 


SMJMACNG 


RES 1 


131 


SNDY8FF 


RES 1 


132 


$NUD 


RES 1 


133 


SNuDPW 


RES 1 


134 


SNUHPD 


RES 1 


135 


SSYRTYP 


RES 1 


136 


5PAGEC 


DATA o 


137 


$PFPRINT 


RES 1 


138 


SPSTATUS 


RES 1 


139 


SPRNTC9DE 


DATA o 


140 


JSCHPFDY 


RES 1 


141 


SSCHPFMN 


RES 1 


142 


SSCHPFYR 


RES 1 


143 


SSTATUD1 


RES 1 


144 


SSTATWD2 


RES 1 


145 


$SCR 


RES 1 


146 


SSTASG1 


RES 1 


147 


SSTRING 


RES 1 


148 


SSTRINGM 


RES 1 


149 


SRGINDEV 


DATA 


150 


$RUNID 


RES 1 


151 


SRUNIDP1 


RES 1 


152 


fPDAY 


RES 1 


153 


SSMPNTH 


RES 1 


154 


SSYEAR 


RES 1 


155 


SSDTIY 


RES 1 


156 


STYSDAY 


RES 1 


157 


$TEMP 


RES 1 


158 


STEMP1 


RES 1 


159 


$TEMP2 


RES 1 


160 


5TEMP3 


RES 1 


161 


STEMP4 


RES 1 


162 


STSLP 


RES 1 


163 


$TLS 


RES 1 


164 


STEFINS 


RES 1 


165 


$TSS 


RES 1 


166 


$TAS 


RES 1 


167 


STAC 


RES 1 


168 


$TAF 


RES 1 


169 


$TPSF 


RES 1 


170 


$TSF 


RES 1 


171 


$TMR 


RES 1 


172 


STSLCAL 


RES 1 


173 


$TM 


RES 1 



MAJOR ACTIVITY INEICTQR 
MAX. LOC. IN COMPUTER 
MAX. LENGTH ABT?. ACT. HEC. 

M ACCUMULATOR 
NUMBER WF~ ACTTYITTE5 
NUMBER OF EVENTS 

NEGATIVE OF NA 



1660 
1662 
1664 

1666 

T57tT 

1680 

1685 



NO. ACTS. INCLUDING ADDS ANE DELFTES 
NEGATIVE OF NUMAC 

NO. OAYS^OTF PER wk " 



1686 
1687 

T6W 



NUMBER OF WORKING DAYS 1700 

NUMBER OF UORKING DAYS PER UEEK 1710 

NUMBER" SF~UWRTTJG""W5~~PER DAY YTTW 

STAR1 YEAR TYPE 1726 



PAST-FUTURE ACT IV I TY ~ P R T NT TWTCTTmT 



DAY 

MONTH 

YEAR 



SCHD. PROJ. FIN. 
SCHD. PROJ. FIN. 

SCHD. PROJ. FlhU 

PROJ. "STATUS "WORE "1 

PROJ. STATUS W0RE2 

SCHD. _CRJ_T ._ I ND. I N BINARY 

STORAGE AVAILABLE "IN SEG. ~ 

NO.REC.IN INPUT STRING 

NEGATIVE OF STRING 



TTZT 

1729 

1730 
1731 
1732 
1733 



1734 
1735 
1736 
1737 
1738 
1739 



RUN ID 



START DAY 
START MONTH 
START YEAR 

START DAY TYPE 
TYPE DAY PROJ. STARTS ON 



1740 
1744 

174*. 

"1750 
1760 
1763 
1764 
1775 



1776 
1777 
1778 



LATE START IN BASIC UNITS 

P R J - . "EX FT "FT W^~JU BASIC UNI IS 

SCHD. START IN BASIC UNITS 

ACT. START IN BASIC UMTS 

CURRENT "TIME"" rff~E'A5TTT 

ACT. FINISH IN BASIC UNITS 

TOTAL PROJ. SCHD. FINISH 

SCHD. FIN. IN BAilC UNITS 

T AT NODE M FROM RT. SIDE T VEC 

TIME OF END OF EVENT 



T77T 

1780 
1781 



T78~2" 
1783 
1784 
171 
1786 
1787 
1788 
1789 
1790 
1791 



oo 



00264 
00?65 
00266 
00?67 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 
00302 
00303 
00304 

003C5 
00324 
00343 
00362 
00371 
00413 
00435 

00*40 



00000440 
00000440 
00000441 
00000441 
00000442 
00000442 
00000443 
00000443 
00000444 
0C000444 
0000044? 
00000445 
00000446 
00000446 
00000447 
00000447 
00000450 
00000450 
00000451 
00000451 
0000045? 
00000452 
00000453 
000C0453 
00000454 
00000454 
00000455 
00000455 



174 


$TN 


RES 




175 


$TNP 


RES 




176 


ST MP 


RES 




J77 


?TEF 


RES 




178 


$TLF 


RES 




179 


?TFLOAT 


RES 




ISO 


STORG 


RES 




iei 


SUNITS 


RES 1 




182 


SDAY 


RES 1 




lez 


$MONTH 


RES 1 




184 


$YEAK 


RES 1 




185 


SYMDFOR 


RES 1 




186 


fUSl 


RES 1 




187 


SU32 


RES 1 




iea 


$UB3 


RES 1 




189 


SWB4 


RES 1 




150 


$U85 


RES 1 




191 


* 






192 


$ *• W D Y 


RES 


15 


193 


SNHY 


RES 15 




194 


SH0L9RG 


RES 


15 


195 


SDAY9FF 


RES 7 




196 


SUSCRl 


RES 


18 


197 


SUSCR2 


RES 


18 


198 


SCKDuR 


RES 


3 


159 


* 






2C0 


SI A 


RES 


70 


2C1 


SI AO 


EQU 


I A 


202 


SC9DE 


EQU 


I A 


2C3 


SI Al 


EQU 


IA + 1 


204 


SI3CD 


ECU 


IA + 1 


2C5 


$1 A2 


EQU 


I A + 2 


2C6 


SJBCD 


EQU 


IA + 2 


2C7 


SI A3 


EQU 


I A + 3 


?ce 


SIJDUP 


EQU 


I A+3 


2C9 


SIA4 


EQU 


I A + 4 


210 


SK3CD 


EQU 


I A + 4 


211 


SI A5 


EQU 


I A +5 


212 


smscd 


EQU 


IA + 5 


213 


SI A6 


EQU 


I A + 6 


214 


SN3CD 


EQU 


I A + 6 


215 


SI A7 


EQU 


I A + 7 


216 


SSCHDUR 


EQU 


I A + 7 


217 


SIA8 


EQU 


I A + 8 


213 


SSCHSDAY 


EQU 


I A + 8 


219 


SI A9 


EQU 


I A + 9 


220 


SSCHSMON 


EQU 


I A + 9 


221 


SI A10 


EQU 


IA + 10 


222 


SSCHSYER 


EQU 


IA + 10 


223 


$1 Al 1 


EQU 


I A + ll 


224 


SSCHFDAY 


EQU 


IA + 11 


225 


$1 A12 


EQU 


I A + 12 


226 


SSCHFM8N 


EQU 


I A + 12 


227 


$ I A 1 3 


ECU 


I A + 13 


223 


SSCHFYER 


EQU 


I A + 13 



EARLY FINISH IN B*SIC UNITS 
LATE FINISH IN BASIC L'NITS 



1792 
1793 
1794 
1795 



TOTAL FLOAT iW~B~lHAWY~ 
9RG. SCHD. FIN. IN BASIC UNITS 
BASIC UNITS TYPE INDICATOR 



YMD FORMAT INDlCAfOR 



REG. VECTOR TEMP. REGION 

NUMBtR 8F WORKING DAYS PER YEAR 
NUMBER OF HOLIDAYS PER YEAR_ 
HOLIDAY 9RGINS 
DAY-OFF VECTOR 

USER'S COMMENT REGION 1 __ 

USER'S COMMENT REGION 2 """ 

CHECK DURATION VECTOR 

IiMPUT REGION 



1796 
1797 
lj}00_ 

"1810 
1820 
1830 
1840 
1860 
1870 
1 880 
1890 
1900 
2000 
2002 
2004 

"2006 
2010 
2020 



2030 
2040 
2060 



2070 
2075 
2080 



I IN PCD 

J IN BCD 

IJ DUP IN BCD 

K IN BCD 

M IN BCD 

N IN BCD 

SCHEDULED DURATI3N (BASIC UNITS 

SCHEDULED START LAY 

SCHEDULED START PONT ( ALPH^ > 
SCHEDULED START YEAR (2 DIGITS) 
SCHEDULED FINISH DAY 
SCHEDULED FINISH MONTH (ALPHA) 
SCHEDULED FINISH YEAR 






00000456 
00000456 
O0OC0457 
00000457 
00000460 
00000460 
00000461 
00000461 
00000462 
00000462 
00000463 
00000463 
00000464 
00000464 
30000465 
00000465 
00000466 
00000466 
00000467 
00000467 
0CO0O470 
00000470 
00000471 
00000471 
00000472 
00000472 
00000473 
00000473 
00000474 
00000474 
00000475 
00000475 
00000476 
00000476 
00000477 
00000477 
00000500 
00000500 
00000501 
00000501 
00000502 
00000502 
00000503 
00000503 
00000504 
00000504 
00000505 
00000505 
00000506 
00000506 
00000507 
00000507 
00000510 
00000510 
0000051 1 



229 


$1 A14 


EGU 1 


A+14 


230 


SACTDUR 


EQU 1 


A + 14 


231 


$1 A15 


ECU ] 


A + 15 


232 


SACTSDAY 


EQU 1 


A + 15 


233 


S I A 1 6 


EQU 1 


A + 16 


234 


SACTSM9N 


EQU 1 


A + 16 


235 


SI A17 


EQJ 1 


A + 17 


236 


SACTSYER 


EQU 


A + 17 


237 


$ I A 1 8 


EGu 


A + 18 


238 


SACTFDAY 


EQU 1 


A + 18 


239 


SIA19 


EQU 


A + 19 


240 


SACTFM8N 


EQU 


A + 19 


241 


$1 A20 


EQU 1 


A+20 


242 


JACTFYER 


EQU 


A + 20 


243 


$ I A21 


EGU 


A + 21 


244 


S8RGFDAY 


EQU 


A + 21 


245 


$1 A22 


EQU 


A + 2? 


246 


S8RGFM8N 


EQU 


A + 22 


247 


$1 A23 


EQU 


A + 23 


243 


fBPRGFYER 


EQU 1 


A + 23 


249 


$1 A?4 


EQU 


A + 24 


250 


SEARSDY 


EQU ] 


A + 24 


251 


$! A25 


EQU 


A + 25 


252 


SEARSMN 


EQU 


A + 25 


253 


JIA26 


EQU 


A + 26 


254 


SEARSYR 


EGU 


A + 26 


255 


$1 A27 


EGU 


A+27 


256 


SLATSDY 


EQU 


A+27 


257 


S I A 2 8 


EQU 


A+2 3 


256 


SLATSMN 


EQU 


[A+28 


2*3 


$! A29 


EQU 


A+29 


260 


SLATSYR 


EQU ! 


A+29 


261 


SI A30 


EQU 


A + 30 


262 


SEARFDY 


EGu 1 


A + 30 


263 


$ IA31 


EQU 


A + 31 


264 


$F.ARFMN 


EQU 


A + 31 


265 


$1 A32 


EQU 


A + 32 


266 


SEARFYR 


EQU 


A + 32 


267 


SIA33 


EQU 


A + 33 


265 


SLATFDY 


EQU 


A + 33 


269 


$1 A34 


EQU 


A + 34 


270 


SLATFMN 


EGU 


A + 34 


271 


SIA35 


EQU ] 


A + 35 


272 


SLATFYR 


EQU 


A + 35 


273 


SIA36 


EQU 


A + 36 


274 


SSCHCRIT 


EQU 


A + 36 


275 


*! A37 


EGU 


A+37 


276 


SSCHCRIS 


EQU 


A + 37 


277 


SIA38 


EQU 


A + 38 


278 


SFSTTFL 


EQU 


A + 33 


279 


5IA39 


EQU 


A + 39 


280 


$niFFDUR 


EQU 


A + 39 


2P1 


*I A40 


EQu 


A+40 


2«2 


SDIFFDUS 


EQU 


A + 40 


283 


$1 A41 


EGu 


A + 41 



ACTUAL DURATI8N (BASIC UNITS) 
ACTUAL START DAY 
ACTUAL START M8NTH 
ACTUAL START YEA* 

ACTUAL FINISH DAY 

ACTUAL FINISH M8NTH 
ACTUAL F I NT S H "TfTA R 
8RIGINAL FINISH £AY 
8RIG1NAL FINISH fflNTH 
QRIGIN'AL FINISH YEAR 
EARLY START DAY 
EARLY START MONTH 

EARLY START' ""YEAR" " — " 

LATE STA RT D AY __ _ 

LATE START M6NTH 

LATE START YEAR 

EARLY FINISH DAY 

EARLY FINISH M8NTH 

EARLY FINISH YEAS 

LATE FINISH DAY _ 

LATE FINISH M8NTH 

LATE FINISH YEAR 

SCHEDULE CRITERI3N 

SCHEDULE CRITERI3N S.IGN 

ESTIMATED T8TAL FLOAT 

DIFFERENTIAL DURATI8N 

DIFFERENTIAL DURATI8N SIGN 



2220 
2225 
2230 
2235 
2240 
2250 
2255 




2350 

2355 

2360 

2365 

2370 

2375_ 

2380 

2385 

2390 

2395 

2400 

2410 

2415 

2420 

2425 

24 30" 

2435 

244p_ 

2445 

2450 

2451 

24 52" 

2453 

2454 

2455" 

2456 

2457 

2458 

2459 

2460 



O 



00546 



00000511 
0000051? 
00000512 
00000513 
00000513 
00000514 
00000515 
00000516 
00000517 
0C000520 
00000521 
00000522 
00000523 
0C000524 
00000525 
00000526 
00000527 
00000530 
00000531 
00000532 
00000532 
00000533 
00000533 
00000534 
00000534 
00C00535 
00000535 
00000536 
00000537 
00000540 
00000541 
0000054? 
00000543 
00000544 
00000545 
00000441 
0000052^ 



00000546 
00000547 
00000550 
00000551 
0000055? 
00000553 
00000554 
00000555 
00000556 
00000557 
00000560 
00000561 
00000562 



284 


ST9TSLIP 


EQU 


IA + 41 


285 


$1 A42 


EQU 


I A + 42 


286 


$T8T3LIS 


EGU 


I A + 42 


287 


$ ! A 4 3 


EQU 


I A + 4 3 


288 


SN9SLIPS 


EGU 


IA + 43 


289 


$1 A44 


EQU 


I A + 44 


290 


$1 A45 


EQU 


IA + 45 


251 


$1 A46 


EQU 


I A + 46 


292 


$1 A47 


EQU 


IA + 47 


293 


$1 A48 


EQU 


IA+43 


294 


$! A49 


EQU 


I A + 49 


295 


$! A50 


EQU 


IA + 50 


296 


$!A51 


EQU 


IA + 51 


297 


SIA52 


EQU 


1A + 52 


298 


$IA53 


EQU 


I A + 53 


299 


$1 A54 


EQU 


I A+54 


3C0 


ST A55 


EQU 


I A + 55 


3C1 


$1 A56 


EQU 


I A + 56 


3C2 


$1 A57 


EQU 


I A + 57 


3C3 


$! A58 


EQU 


I A + 58 


3C4 


SMAJAIN 


EGU 


IA + 58 


305 


$T A59 


EQU 


1 A + 59 


3C6 


SMILDAY 


EQU 


I A + 59 


307 


$1 A60 


EQU 


I A + 60 


3C8 


$ M I L M N 


EQU 


I A + 60 


3G9 


$! A61 


ECU 


I A + 6 1 


310 


S*ILYER 


EQU 


I A + 61 


311 


$1 A62 


EQU 


I A + 62 


312 


SIA63 


EQU 


I A + 63 


313 


$IA64 


EQU 


I A+64 


314 


$1 A65 


EQU 


I A +6 5 


315 


$1 A66 


EQU 


IA+66 


316 


?! A67 


EQU 


I A +6 7 


317 


$ I A66 


EQU 


I A + 68 


318 


SIA69 


EQU 


I A + 69 


319 


SJNPUTAR 


EQU 


I Al 


320 


$1 AEND 


EQU 


INPUTAR+50 


321 


* 






322 


* 






323 


* 






324 


S8UTAREA 


RES 


70 


325 


* 






326 


SPAR1 


EQU 


8UTAREA 


327 


$9AR2 


EQU 


9UTAREA+1 


323 


SPARJ 


EQU 


9UTAREA+2 


329 


*FAR4 


EQU 


8UTAREA+3 


330 


S8AR5 


EQU 


6UTAREA+4 


331 


$*AR6 


EQU 


9UTAREA+5 


332 


$PAR7 


EQU 


8UTAREA+6 


333 


$8AR8 


EQU 


9UTAREA+7 


334 


$9ARS 


EQU 


9UTAREA+8 


33 5 


*9AR10 


EQU 


9UTAREA+9 


33b 


$«AR1 1 


EQU 


8UTAREA+10 


337 


«9AR12 


EQU 


9 U T A R E A + 1 1 


338 


SPAR13 


EQU 


8UTAREA+12 



TOTAL SLIP 

T8TAL SLIP SIGN 

NUMBER OF SLIPS 
PREVI9US SLIP INDICATOR 

C8ST CODE 

RE SP 9 NS 1 8 I'L TTT""CTDT 
ACTIVITY DESCRIPTION 



MAJ9R ACTIVITY INDICATOR 
MILESTONE DAY 
MILESTONE MONTH 
MILESTONE YEAR 



2461 
2462 
2463 
2464 
2465 
2466 
24F7~ 
2468 
2469 
■■2470" 
2471 
2472 
24 7 3 
2474 
2475 
2476 
2477 
2478 
247 9 
2480 
2481 
2482 
2483 
2484 
2485" 
2486 
24 87 
2488 
2489 
2490 
24 91 
2492 
2493 

24 94" 

2495 
2496 
2497 
2510 
2520 
2530 
2540 
2550 

2560 
2570 

25 80 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 



00000563 339 S8AR14 EQU 9UTAREA+13 2680 

00000564 340 $8AR15 EQU 8UTAREA+14 2690 

00000565 341 S8AR16 EQU 8UTAREA+15 " '2700 

00000566 342 SPAR17 ECU 8UTAREA+16 2710 

00000567 343 SPAR18 EQU 8UTAREA+17 . _ 2720 

00000570 344 S8AR19 EQU 8UTAREA+15 "2730 

00000571 345 S8AR20 EQU 8UTAREA+19 2740 

00000572 346 S8AR21 EQU 8UTAREA + 20 ____ 2760 

00000573 347 S8AR22 EQU 8UTAREA+21 ~~ " 2770 

00000574 348 S9AR23 EQU 8UTAREA+22 2780 

00000575 349 J8AR24 EQU 8UTAREA+23 2790 

00000576 350 S9AR25 EQU 8UTAREA+24 T8~0TT 

00000577 351 SPAR26 EQU 8UTAREA+25 2810 

00000600 352 $PAR27 EQU 8UTAREA + 26 2820 

00000601 353 S8AR28 EQU 8UTAREA+27 ~ 2830 

00000602 354 $8AR29 EQU 8UTAREA+23 2840 

00000603 355 $PAR30 EQU 8UTAREA+29 2850 

00000604 356 S8AR31 EQU 8UTAREA+30 2860 

00000605 357 S8AR32 EQU 8UTAREA+31 2870 

00000606 358 S8AR33 EQU 8UTAREA+32 LAST W8RD 8F 8UTPUT AREA _ 2880 

00000607 359 SPUTAREAL EQU BU7AREA + 33 LAoT + 1 U0R.D 8F 8UTP0T AREA ~~ ~J&9JS" 
00000607 360 $PAR34 EQU 8UTAREA+33 3000 

00000610 361 S8AR35 EQU 8UTAREA+34 _ 3010 

00000611 362 S8AR36 EQU 8UTAREA + 35 ~ 70TO"" 

00000612 363 S8AR37 EQU 8UTAREA+36 3030 

00000613 364 $PAR38 EQU 8UTAREA+37 3040 

00000614 365 $PAR39 EQU 9UTAREA+38 " 3050" 

00000615 366 SPAR40 EQU 8UTAREA+39 3060 

00000616 367 S8AR41 EQU 8UTAREA+40 3070 

00000617 368 S8AR42 EQU 8UTAREA+41 "~ 3080 

00000620 369 J8AR43 EQU 8UTAREA+42 3090 

00000621 370 $PAR44 ECU 8UTAREA+43 3100 

00000622 371 SPAR45 ECU 8UTAREA + 44 """" ~ 3H0 
00UOO623 372 SPAR46 EQU 8UTAREA+45 3120 

00000624 373 SPAR47 EQU 8UTAREA+46 3130 
00000525 374 SRAR48 EQU OUTAREA+47 3140 

00000625 375 SPAR49 EQU 3UTAREA+48 3150 
00000627 376 SPAR50 EQU 8UTAREA+49 _ 3160 

00000630 377 SPAR51 EQU 8UTAREA+50 " " ~3l70" 

00000631 378 SPAR52 EQU 8UTAREA+51 3180 

00000632 379 SPAR53 EQU 8UTAREA + 52 3 190 

00000633 380 SPAR54 EQU 8UTAREA+53 - ■- - ....... „ 3200 

00000634 3ei J8AR55 EQU 8UTAREA+54 3210 

00000635 382 $8AR56 EQU 9UTAREA+55 3220 

00000636 3S3 SPAR57 EQU 8UTAREA+56 3230 

00000637 384 S8AR58 EQU 8UTAREA+57 3240 . 

00000640 385 S8AR59 EQU 8UTAREA+58 3250 

00000641 386 $PAR60 EQU 8UTAREA+59 3260 

00000642 3P7 JPAR61 EQU 9UTAREA+60 3270 

00000643 388 S9AR62 ECU 8UTAREA+61 3280 

00000644 359 JPAR63 EQU 8UTAREA+52 3290 

00000645 390 SPAR64 EQU 8UTAREA+63 3300 

00000646 391 SPAR65 EQU 8UTAREA+64 3310 

00000647 392 JPAR66 EQU 3UTAREA+65 3320 
00000650 393 SPAR67 EQU 8UTAREA+66 3330 



ho 



00000651 394 SPAR68 EQU 9UTAREA+67 3340 

0C000652 395 JPAR69 EQU 8UTAREA+68 3350 

00000653 396 $PAR70 EQU 8UTAREA+69 3360 

00000644 397 $0ARAP1 EQU 9UTAREA+62 4000 

00000370 398 SUSCMlL EQU USCR1-1 4010 

0000041? 399 SUSCM2L EQU USCR2-1 4020 

00000435 400 SCKDUR1 EQU CKDUR 4J)30 

00000436 4C1 SCKDUR2 EQU CKDUR+1 *0~3B~ 

00000437 4C2 SCKDUR3 EQU CKDUR+2 4050 
00000440 403 SCKD-URL EQU CKDUR + 3 4Q60 

00000104 4C4 SACTNUMUD EQU NUBAR "'"" "~ 4 oTCT 

00000170 4C5 SEFFBATE EQU EFFDAY+3 4080 

00000304 4C6 SNUDYM1 EQU NUDY-1 4090 

00000323 407 SNHYMl EQU NHY-1 ~ 4~TW 

00000342 4C3 JHOLQMl EQU MPL9RG-1 4110 

4C9 END 9999 



PEPSORT COMMON 

onnoo 1 rorg common data area oooo 

0C00C 2 SACTAA RES 1 ACT NO. OF CURRENT ACT 0020 

00001 3 SACTBB RES 1 -(NO. OF RECORDS TO WRITE) 0030 

00002 . 4 $ACTK RES 1 CURRENT NO OF ACT PROCESSED 0040 

00003 nOOOOlOl 5 SACTMJPWD DATA 65 NO WORDS IN ACT RECORD 0050 

00004 60606060 6 SBCDBLK DATA * * BCD BLANK 
0CO05 

00000004 

00022 20000000 

00023 -10000033 
Q0C24 37777777 
00025 
00026 
00027 
00030 

00031 00000000 

00032 5°0°00C0 
"00 3 3 00000000 
H0O34 00000000 

00035 nooococn 

00036 00000003 

00037 60606024 
00040 _ 23 $IAO RES 70 INPUT AREA 

nnoooo4u 

0000004') 25 SCPOE EQU I A 2080 

0000004 1 26 SIA1 EQU IA + 1 2085 

O0CCCD41 27 SIBCE EQU IA+1 I IN BCD 209C 



1 




RORG 





2 


SACTAA 


RES 


1 


3 


SACTBB 


RES 


1 


4 


SACTK 


RES 


1 


5 


SACTMJPWD 


DATA 


65 


6 


SBCDBLK 


DATA 


* # 


7 


SBCDCODE 


RES 


13 


8 


SftCDMl 


EQU 


BCDCODE-1 


9 


$ BCD PL 


DATA 


•♦000* 


10 


SBCDDP 


DATA 


*000.* 


11 


SDACTI 


DATA 


037777777 


12 


SEFFTAY 


RES 


1 


13 


SEFFMfiN 


RES 


1 


14 


SEFFYER 


RES 


1 


15 


SENDFILE 


»ES 


1 


16 


$ERC 


DATA 





17 


$ERI 


DATA 





18 


$ERJ 


DATA 





19 


SEXPFMN 


DATA 


n 


20 


SEXPFDY 


DATA 





21 


SEXPFYR 


DATA 





22 


SUNITS 


DATA 


* D* 


23 


$IAO 


RES 


70 


24 


SI A 


EQU 


IAO 


25 


SCPOE 


EQU 


IA 


26 


SIA1 


EQU 


IA + 1 


27 


SIBCC 


EQU 


IA + 1 



00000042 
00000042 
00000043 
00000343 
00000044 
00000044 
00000045 
Q0000045 
00000046 
OOQ00046 
00000047 
00000047 
00000050 
O000005U 
00000051 
00000051 
00000052 
00000052 
00000053 
O0000053 
O0C0C054 
O000CC54 
00000055 
00000055 
00000056 
00000056 
00000057 
O0000057 
00000060 
00000060 
00000061 
00000061 
00000062 
00000062 
O0000063 
00000063 
00000064 
00000064 
00000065 
00000065 
00000066 
00000066 
O000C067 
00000067 
00000070 
00000070 
O000C071 
O000C07 1 
00000072 
00000072 
00000073 
00000073 
O0000074 
00000074 
0000007b 



28 


SI A? 


EOU 


[A + 2 


29 


SJ6CD 


EOU 


A + 2 


30 


SIA3 


EOU 


A + 3 


31 


SIJOUP 


EOU 


A + 3 


32 


SIA4 


EQU 


A + 4 


33 


SKBCD 


EQU 


IA + 4 


34 


SIA5 


EQU 


IA + 5 


35 


SMBCD 


EQU 


lA + 5 


36 


$IA6 


EQU 


[ A + 6 


37 


SNBCD 


EQU 


4+6 


38 


SIA7 


EQU 


(A + 7 


39 


SSCHDUR 


EQU 


[A+7 


40 


SIA8 


EQU 


IA + 8 


41 


SSCHSDAY 


EQU 


A + 8 


42 


SIA9 


EQU 


A + 9 


43 


SSCHSMON 


EQU 


A + 9 


44 


SI A 10 


EQU 


A + 10 


45 


SSCHSYEP 


EQU 


A + 10 


46 


SIAU 


EQU 


A + ll 


47 


SSCHFDAY 


EQU 


A + ll 


48 


SI A 12 


EQU 


A + 12 


49 


SSCHFHON 


EQU 


A + 12 


50 


SIA13 


EQU ] 


A + 13 


51 


SSCHFYEP 


EQU 1 


A + 13 


52 


SIA14 


EQU ] 


A + 14 


53 


SACTDUR 


EQU 


A + 14 


54 


SIA15 


EQU ] 


A + 15 


55 


SACTSDAY 


EQU 


A + 15 


56 


5IA16 


EQU 


A + 16 


57 


SACTSMON 


EQU 


[A + 16 


58 


4IA17 


EQU 


[ A + 1 7 


59 


SACTSYER 


EQU 


[A + 17 


60 


SIAiP 


EQU 


[A + 18 


61 


SACTFDAY 


EQU 


[A + 18 


62 


SIA1S 


EQU 


IA + 19 


63 


SACTFMON 


EQU 


tA + 19 


64 


SIA20 


EQU 


1 A + 20 


65 


SACTFYER 


EQU 


1 A + 20 


66 


SIA21 


EQU 


[A + 21 


67 


SORGFDAY 


EQU 


[A + 21 


68 


SIA22 


EQU 


[A + 22 


69 


J0RGFM8N 


EQU 


[A + 22 


70 


$1 A23 


EQU 


[A + 23 


71 


SORGFYER 


EQU 


[A + 23 


72 


SIA24 


EQU 


[A + 24 


73 


SEARSDY 


EQU 


[A + 24 


74 


SIA25 


EQU 


IA + 25 


75 


SEARSMN 


EQU 


IA + 25 


76 


$IA.?6 


EQU 


[A + 26 


77 


JEARSYR 


EQU 


[A + 26 


78 


SIA27 


EQU 


[ A+27 


79 


SLATSDY 


EQU 


IA + 27 


80 


SIA28 


EQU 


[A + 2H 


81 


SLATSMN 


EQU 


[A + 28 


82 


SIA29 


EQU 


[A + 29 



J IN BCD 

IJ DUP IN BCD 

K IN BCD 

M IN BCD 

N IN BCD 



2095 


2100 


2105 


2110 


2115 


2120 


2125 


2130 


2135 


2140 


2M5 



SCHEDULED DURATION (BASIC UNITS)2150 

2155 

SCHEDULED START DAY 2160 

2165 

SCHEDULED START MONT (ALPHA) 2170 

2175 

SCHEDULED START YEAR (2 DIGITS) 2160 

2185 

SCHEDULED FINISH DAY 2190 

2195 

SCHEDULED FINISH MONTH (ALPHA) 2200 

2210 

SCHEDULED FINISH YEAR 2215 

2220 
2225 
2230 
2235 
2240 
2250 
2255 
2260 
2265 
2270 
2275 
2280 
2285 
2290 
2295 
2300 
2305 
2310 
2315 
2320 
2325 
2330 
2335 
2340 
2345 
2350 
2355 
2360 
2365 
2370 
2375 



ACTUAL DURATION (BASIC UNITS) 

ACTUAL START DAY 

ACTUAL START MONTH 

ACTUAL START YEAR 

ACTUAL FINISH DAY 

ACTUAL FINISH MONTH 

ACTUAL FINISH YEAR 

ORIGINAL FINISH DAY 

ORIGINAL FINISH MONTH 

ORIGINAL FINISH YEAR 

EARLY START DAY 

EARLY START M8NTH . 

EARLY START YEAR 

LATE START DAY 

LATE START MONTH 






0(0000075 
0000007ft 
0000007b 
00000077 
00000077 
00000100 
00000100 

oooooici 

O000C101 
O000C1C2 
000001C2 
00000103 
O000C1C3 
00000104 
O000C104 
00000105 
00000105 
00000106 
00000106 
O00001C7 
00000107 

00000 i ri 
ncOOOt in 

000001 t 1 

ocoooi i i 

000001 12 
O00001 12 
000001 13 
OOOOOI 13 
0000011^ 
000001 15 
O000C1 16 
O000C1 17 
00000120 
00000121 
OCOOOI 22 
00000 123 
00000 124 
00000125 
00000126 
00000127 
nOOOOtlO 
000001 31 
00000132 
00000132 
00000133 
00000133 
00000134 
00000134 
00000135 
OOOOOI 35 
00000136 
00000136 
<?0000137 
no n?C. 1 4H 



83 


SLATSYR 


EQU 


A + 29 


84 


$IA3C 


ECU 1 


A+30 


85 


SEARFDY 


EQU ] 


A + 30 


86 


SIA31 


EQU 1 


A + 31 


87 


SEARFMN 


EQU 1 


A + 31 


88 


SIA32 


EQU 1 


A + 32 


89 


SEARFYR 


EQU ] 


A + 32 


90 


SIA33 


EQU 1 


A + 33 


91 


SLATFDY 


EQU ] 


A + 33 


92 


SIA34 


EQU 1 


A + 34 


93 


SLATFMN 


EQU 


A + 34 


94 


SIA35 


EQU 


A + 35 


95 


SLATFYR 


EQU 


IA + 35 


96 


SIA36 


EQU 


[A + 36 


97 


SSCHCRIT 


EQU 


IA + 36 


98 


SIA37 


EQU 


[A+37 


99 


SSCHCRIS 


EQU 


[A + 37 


100 


SIA36 


EQU 


IA+38 


101 


SESTTFL 


EQU 


[A +38 


102 


SIA39 


ECU 


[ A+39 


103 


SOIFFDUR 


EQU 


[ A + 39 


104 


M-A40 


EQU 


[ A + 4Q 


105 


SOIFFDUS 


EQU 


[A+40 


106 


SIA41 


EQU 


A + 41 


107 


STOTSLIP 


EQU 


[A+41 


108 


SIA42 


EQU 


[A + 42 


109 


STOTSLIS 


EQU 


A + 42 


110 


SIA43 


EQU 


A +43 


111 


SN8SLIPS 


EQU 


A + 43 


112 


SIA44 


EQU 


[ A + 44 


1 13 


SI A45 


EQU 


A + 45 


114 


4IA46 


EQU 


A + 46 


115 


SIA47 


EQU 


A + 47 


1 16 


$1 A4e 


EQU 


A + 48 


1 17 


SIA49 


EQU 


A + 49 


IIP 


SIA5C 


EQU 


A + 50 


1 19 


SIA51 


EQU 


A+51 


120 


SIA52 


EQU 


A + 52 


121 


SIA53 


EQU ] 


A + 53 


122 


SIA54 


EQU 


A+54 


123 


$IA55 


EQU 


A+55 


124 


SIA56 


EQU 


A + 56 


t25 


SIA57 


EQU 


A + 57 


126 


SIA58 


EQU 


A + 58 


127 


SMAJAIN 


EQU 


A +58 


128 


$1 A59 


EQU 


A + 59 


129 


SMILDAY 


EQU 


A+59 


130 


5IA60 


EQU 


A + 60 


131 


SMlLMflN 


EQU 


t A+60 


132 


$ I A 5 1 


EQU 


[A +61 


133 


SMILYEB 


EQU 


fA + 61 


134 


SIAS2 


EQU 


I A + 62 


135 


51A0L 


EQU 


I AO + 62 


136 


$1 A63 


EQU 


t A + 6 3 


137 


SI A64 


EQU 


I A +64 



LATE START YEAR 

EARLY FINISH DAY 

EARLY FINISH MONTH 

EARLY FINISH YEAR 

LATE FINISH DAY 

LATE FINISH MONTH 

LATE FINISH YEAR 

SCHEDULE CRITERION 

SCHEDULE CRITERION SIGN 

ESTIMATED TOTAL FLOAT 

DIFFERENTIAL DURATION 

DIFFERENTIAL DURATION SIGN 

TOTAL SLIP 

TOTAL SLIP SIGN 

NUMBER OF SLIPS 
PREVIOUS SLIP INDICATOR 

COST CODE 

RES PONS IBILITY CODE 
ACTIVITY" DESCRIPTION 



MAJOR ACTIVITY INDICATOR 
MILESTONE DAY 
MILESTONE MONTH 
MILESTONE YEAR 



2380 
2385 
2390 
2395 
2400 
2410 
2415 
2420 
2425 
2430 
2435 
2440 
2445 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2460 
2481 
2482 
2463 
2464 
2465 
2466 
2487 
2466 

2489 

2490 



O00CC141 
O00CC142 
O0000143 

oooooi &l 

00000145 
00000041 
O0000123 



00146 



O0000147 
O0000150 
00000151 
00000152 
OCO00153 
0000015* 
00000 t 55 
OO00C156 
O000C157 
00000160 
O0J00161 
00000162 
00000163 
0000016 4 
00000165 
00000166 
00000167 
00000170 
00000171 
00000172 
00000173 
00000174 
00000175 

000001 76 
00000177 
00000200 
OUU00201 
00000202 
00000203 
00000204 
OO0OC205 
00000206 
00000207 
00000207 
0000021G 
00000211 
00000212 

000002 13 
00000214 
00000215 
00000217 
00000 220 
00000221 



138 


SIA65 


ECU 


IA + 65 


139 


SIA66 


ECU 


IA + 66 


140 


SIA67 


EQU 


IA + 67 


141 


SIA68 


EQU 


IA + 68 


142 


SIA69 


EQU 


IA + 69 


143 


SINPLJTA9 


FQU 


JAl 


144 


SIAEND 


EOU 


INPUTAR+50 


145 


* 






146 


* 






147 


* 






148 


S8UTAREA 


RES 


70 


149 


* 






150 


$6AR2 


EQU 


BUTAREA+1 


151 


S8AR3 


EQU 


8UTAREA+2 


152 


JBAR4 


EQU 


8UTAREA+3 


153 


S8AR5 


EQU 


8UTAREA+4 


154 


$8AR6 


EQU 


8UTAREA+5 


155 


S8AR7 


EQU 


8UTAREA+6 


156 


S8AR6 


EQU 


8UTAREA+7 


157 


S8AR9 


EQU 


8UTAREA+8 


156 


S0AR10 


EQU 


8UTAREA+9 


159 


S8AR11 


EQU 


8UTAREA+10 


160 


S8AR12 


EQU 


8UTAREA+U 


161 


S8AR13 


EQU 


BUTAREA+12 


162 


S8AR14 


EQU 


8UTAREA+13 


163 


S8AR15 


EQU 


8UTAREA + U 


164 


S8AR16 


EQU 


8UTAREA+15 


165 


S8AR17 


EQU 


8UTAREA-U6 


166 


S8A918 


EQU 


8UTAREA+17 


167 


SBAR19 


EQU 


BUTAREA+18 


168 


SBAR20 


EQU 


8UTAREA+19 


169 


58AR21 


EQU 


8UTAREA+20 


170 


S8AR22 


EQU 


8UTAREA+21 


171 


S8AR23 


EQU 


BUTAREA+22 


172 


S8AR24 


EQU 


8UTAREA+23 


173 


S8AR25 


EQU 


8UTAREA+24 


174 


S8AR26 


EQU 


8UTAREA+25 


175 


S8AR27 


EQU 


8UTAREA+26 


176 


S3AR28 


EQU 


8UTAREA+27 


177 


18AR29 


EQU 


8UTAREA+28 


178 


S8AR30 


EQU 


BUTAREA+29 


179 


S8AR31 


EQU 


BUTAREA+30 


180 


S8AR32 


EQU 


9UTAREA+31 


181 


SBAR33 


EQU 


8UTAREA+32 


182 


3BUTAREAL 


EQU 


8UTAREA+33 


183 


S6AR34 


EQU 


8UTAREA+33 


184 


$8AR35 


EQU 


8UTAREA+34 


185 


SBAR36 


EQU 


8UTAREA+35 


186 


S8AP37 


EQU 


8UTAREA+36 


187 


SBAR38 


EQU 


8UTAREA+37 


186 


S8AP39 


EQU 


8UTAREA+38 


189 


58AR40 


EQU 


8UTAREA+39 


190 


58AR42 


ECU 


6UTAREA+41 


191 


SBAR43 


EQU 


8UTAREA+42 


192 


SPAR44 


EQU 


5UTAREA+43 



LAST WARD BF BUTPUT AREA 
LAST+1 W8RD BF 8UTPUT AREA 



2491 
2492 
2493 
2494 
2495 
2496 
2497 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2560 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2680 
2890 
3000 
3010 
3020 
303G 
3040 
3050 
3060 
3080 
3090 
31G0 






00254 
00255 
0025ft 
00257 
00260 
0026 1 
00262 
00263 
00264 
00265 
00266 
00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
OC300 
00301 
00302 
O0303 
00304 
00305 
00306 
D0307 



00000222 
O00C0223 
00000224 
00000225 
00000226 
00000227 
0000023G 
00000231 
O0000232 
00000233 
0000023^ 
O000C235 
O000G236 
00000237 
00000240 
0000024 1 
00000242 
00000243 
00000244 
O0000244 
00000245 
00000246 
00000247 
00000250 
0000C251 
00000252 
00000253 



7700000U 
77770000 
0077770'! 
00770000 
O00077CU 
00000077 
000^7777 
77777700 
00777777 
00077777 
O0077777 

77777777 



77777677 

O0000O01 



noooooco 

6060606 J 

oooooooo 
oooocooo 



193 


S8AR45 


EOU 


9UTAREA+44 


t 04 


SCTAR46 


EQU 


9UTAREA+45 


195 


S8AR47 


EQU 


9UTAREA+46 


196 


$ 3 A R 4 8 


EQU 


9UTAHEA+47 


197 


$ 9 A R 4 9 


EQU 


8UTAREA+48 


198 


S8AR50 


EQU 


9UTAREA+49 


199 


S8AR51 


EQU 


8UTAREA+50 


200 


J8AR52 


EQU 


8UTAREA+51 


201 


S8AR53 


EQU 


9UTAREA+52 


202 


S8AR54 


EQU 


9UTAREA+53 


203 


S8AR55 


EQU 


PUTAREA+54 


204 


S8AR56 


EQU 


8UTAREA+55 


205 


S8AR57 


EQU 


9UTAREA+56 


206 


S0AR5S 


EQU 


9UTAREA+57 


207 


S0AR59 


EQU 


PUTAREA+58 


2oe 


S3AR60 


EQU 


9UTAREA+59 


209 


S8AR61 


EQU 


OUTAREA+60 


210 


S8AR62 


EQU 


9UTAREA+61 


211 


S8ARAP1 


EQU 


8UTAREA+62 


212 


S8AR63 


EQU 


9UTAREA+62 


213 


S8AR64 


EQU 


9UTAREA+63 


214 


S8AR65 


EQU 


9UTAREA+64 


215 


$©AR66 


EQU 


9UTAREA+65 


216 


$0AR67 


EQU 


9UTAREA+66 


217 


S9AR68 


EQU 


8UTAREA+67 


218 


S0AR69 


EQU 


9UTAREA+68 


219 


$8AR70 


EQU 


9UTAREA+69 


220 


SLIMEC 


RES 


I 


221 


SL.PK 


RES 


1 


222 


SMAJ8R 


RES 


1 


223 


SMASK1 


DATA 


077000000 


224 


SMASK12 


DATA 


077770000 


225 


SMASK23 


DATA 


000777700 


226 


5MASK2 


DATA 


00770000 


227 


5MASK3 


DATA 


00007700 


228 


$MASK4 DATA 


00000077 


229 


SMASK34 


DATA 


0000C7777 


230 


SMASK123 


DATA 


077777700 


231 


SMASK234 


DATA 


00777777 


232 


^MASKADR 


DATA 


000077777 


233 


SMASKADA 


DATA 


000077777 


234 


SMAXABR 


RES 


1 


235 


$M8NE 


DATA 


-1 


236 


SNA 


RES 


1 


237 


5NC9DES 


RES 


1 


238 


SNEGMn 


DATA 


-65 


239 


S9NE 


DATA 


1 


240 


SPAGEC 


»ES 


1 


241 


$PC 


RES 


1 


242 


spcere 


RES 


1 


243 


$=>F»RINT 


RES 


1 


244 


SPRMTC8DE 


DATA 





245 


SPSTATUS 


DATA 


» » 


246 


SQT DATA 





247 


SRGINDEV 


DATA 






Nfl 9F FIRST ACT IN CURRENT BLOCK 



3110 
3120 
3130 
3140 
3150 
3160 
3170 
3160 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
40C0 
3290 
33CG 
3310 
3320 
3330 
3340 
3350 
3360 

0060 



007 



MAX LENGTH 8F S VECTOR 
T8TAL N8 8F ACT 

NEG N8 8F wBRDS IN ACT RECORD 

L8C 8F PRIMARY CODES .TAGEU 

OUTPUT 8N PRINTE Y-YES, N»NO 

DEVICE SEL. CODE, C«CDS* P-PAPER. M*MAGT APE 



0060 

0090 
0100 



00310 




248 


SRUNID 


RES 






00311 




249 


SRUNIDPl 


RES 






H031? 


nooocooi 


250 


SRPUNO 


DATA 






00313 




251 


SS 


RES 






00 3 U 




252 


ssc 


RES 






315 




253 


5SC8DE 


RES 






00316 




254 


SSECKEY 


RES 






00717 




255 


JSELFCT 


RES 






0032:1 




256 


$SEQ 


RES 






00321 




257 


SSE3FND 


RES 






00 3 22 




256 


fSE^L 


RES 




INDEX 


003 2 3 




259 


SSELECTL 


RES 




INDEX 


30324 




260 


SSRTCDN 


RES 


1 7 


V 


00341 


ooooooou 


261 


SSCHPFDY 


DATA 







0034? 


00000000 


262 


SSCHPFMN 


DATA 







00343 


oooooooo 


263 


SSCHPFYR 


DATA 









00000323 


264 


SSRTCD 


EOU 


SPTCDM 


-1 


00344 


50606060 


265 


$ S T A T w u 1 


nATA 


» » 




00345 


60606060 


266 


SSTATaD? 


DATA 


» » 




00346 




267 


SSTRINGM 


RES 


1 




00347 


57777777 


268 


JTAGDEL 


DATA 


057777777 


00350 


200000CU 


269 


STAGBIT 


DATA 


020000000 




O000C35U 


270 


STAG 


EQU 


TAGRJT 




00351 




271 


STHREDIN 


RES 


1 




0035? 


T000C0C3 


272 


STHRFE 


DATA 


3 




00 3 5 7 


O0000002 


?73 


$TW8 


DATA 


2 




00354 




274 


SUSECA 


RES 


18 




0037* 




275 


JUSECB 


RES 


18 




00420 


2 35 J0776 


276 


SUC1ST0 


STA 


USECA+18,2 


004 21 


2 35 00420 


277 


$UC2ST6 


STA 


USECB+ 


18,2 


0042? 


OOOOCOO'J 


278 


$ZER« 


DATA 









00000422 


279 

280 


SZ 


EQU 
END 


ZERO 





LOC OF THE ABRIVIATED ACT REC. 

LOC OF SECONDARY CODES. TAGED 



LOC OF START OF SELECT AREA 
LOC OF FIRST WORD IN SEQ ARRAY 
LOC OF LAST WORD+1 SEQ ARRAY 
LOC OF LAST WORD+1 SEC ARRAY 
LOC OF LAST WORD+1 SELECT ARRAY 
VECTOR OF NUMERIC SORT CODES 



NO. OF RECORDS IN A BLOCK 
DELETE TAG MASK 



LOC OF RECORD BLOCK 



0010 



0110 
0120 
0130 
0140 



0150 



0160 



0170 
3000 



SSP CONTROL PROGRAM 



SSCAP1 



DO NONACTIVITY ORIENTED 
ADDRESS INITIALIZATIONS, 
BASED ON AMOUNT OF AVAIL- 
ABLE MEMORY (SCAP 1.5) 



DO INPUT/OUTPUT DEVICE 
SELECTION CODE TYPE -IN 
(SCAP 2) 



BAD DEVICE SELEC- 
TION CODE RETURN 



READ PARAMETER INPUT FROM 
PUNCHED CARDS, PAPER TAPE, 
OR MAGNETIC TAPE UNIT 1 
(SCAP 3) 



NORMAL RETURN 



Q 



WAS MAGNETIC TAPE SELECTED 
AS INPUT DEVICE? 



DO FILE CHANGE INPUT 
DEVICE SELECTION CODE 
TYPE-IN (SCAP 4) 



BAD DEVICE SELEC- 
TION CODE RETURN 



READ PARAMETER CHANGE IN- 
PUT FROM PUNCHED CARDS OR 
PAPER TAPE (SCAP 5) 



NORMAL RETURN | 



_£ 



SET FILE CHANGE INPUT DEVICE 
FOR NO CHANGE INPUT 



DO PARAMETER CONVER- 
SIONS AND SETUPTS 
(SCAP 5.5) 



SEQUENCE HOLIDAYS (STILL 
IN BCD CALENDAR DATE FORM^ 
(SCAP 6) 



rO 



WAS CALENDAR START DATE 
NPUT? 



~) 



DO INITIALIZATIONS OF 
DATE CONVERSION ROU- 
TINE (SCAP 65) 



SET BRANCH A FOR PATH 1 





i 




" 








SET NUMBER OF ACTIVITIES = 




1 






f RGACRD 






S 
U 
B 

R 


READ ACTIVITY RECORD FROM 
DEVICE SELECTED PREVIOUSLY 
FOR ORIGINAL FILE INPUT 
(MAGNETIC TAPE UNIT 1, 
CARDS, OR PAPER TAPE). USE 
ORIGINAL ACTIVITY ENTRY. 
(SCAP 7) 






TAPE OUT 
OF SYNCH 
EXIT 


NORMAL 
EXIT 






END OF ACTIV- 
ITIES EXIT 






f WAS FILE CHANGE DEVICE ^ 
I SELECTED? J 










i 






yes 




SET FIRST CHANGE INDICATOR 
NEGATIVE 






" 






SET BRANCH A FOR PATH 2 
(NEGATIVE) 


















* 




^ TSTMS 


i 




r\ 


DOES ACTIVITY RECORD CON^\ 
TAIN A MILESTONE DATE OR 
TIME? J 






yes 
u MSTCON 




S 
U 
B 
R 


DO MILESTONE RELATIVE 
TIME SETUP IN TAPE RECORD 
(SCAP 8) 














f 








1 




SET MILESTONE RELATIVE TIME = 
IN TAPE RECORD 






\ 




, ACWR 








S 

u 

B 
R 


WRITE COMPLETE ACTIVITY 
RECORD ON MAGNETIC TAPE 
UNIT 2 (SCAP 10) 






\ 


r 


PATH 




BRANCH A 


1 (+) 












PATH 2 (-) 
r CHACRD 








\ 






S 

u 

B 

R 


READ ACTIVITY CHANGE FROM 
DEVICE SELECTED FOR FILE 
CHANGE INPUT (CARDS OR 
PAPER TAPE). (SCAP 7) 






NORMAL 
EXIT 








E 
I 


ND OF ACTIV- 
HES EXIT 

r 


k 
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SSP CONTROL PROGRAM (conf.) 




WRITE END OF ACTIVITIES 
RECORD (TYPE 6) ON MAG- 
NETIC TAPE UNIT 2 AND 
INITIATE REWIND (SCAP 11) 



WAS MAGNETIC TAPE SELECTED 
AS ORIGINAL FILE INPUT DEVICE 



d 



TYPE "REEL CHANGE UNIT T 
MESSAGE (SCAP 12) 



SKIP OVER PROGRAM SEG- 
MENTS ON TAPE UNIT 2 
(SCAP 12.3) 



READ ACTIVITY RECORDS FROM 
UNIT 2 AND CREATE ABBREVI- 
ATED ACTIVITY RECORDS IN 
CORE STORAGE. BACKSPACE 1 
RECORD AFTER READ END ACTIV- 
ITY RECORD (SCAP 12.6) 



SET UP DUMMY ABBREVIATED 
ACTIVITY RECORDS FOR MILE- 
STONES AND WRITE COMPLETE 
DUMMY MILESTONE ACTIVITY 
RECORDS ON MAGNETIC TAPE 
UNIT 2. (SCAP 13) 



WRITE END OF ACTIVITIES 
RECORD ON MAGNETIC TAPE 
UNIT 2 AND REWIND (SCAP 13.4) 



STORE UNSORTED ACTIVITY 
NUMBERS IN ABBREVIATED AC- 
TIVITY RECORDS (SCAP 13.7) 





/was magnetic tape selected as^ 

I INPUT DEVICE? j 


r^l 


yes 






s 

U 
B 
R 


TYPE REEL CHANGE UNIT 1 
VERIFICATION MESSAGE 
(SCAP 19) 






' 




' 




s 

U 
B 
R 


POSITION TAPE AND WRITE 
UPDATED PARAMETER FILE 
ON MAGNETIC TAPE UNIT 1 
(SCAP 19.5) 






^ 


f 






' 


no 


IS UNIT 2 REWIND COMPLETED? 




yes 




SKIP OVER PROGRAM SEGMENT I 






w 






S 
U 
B 
R 


READ PROGRAM SEGMENT II 
FROM MAGNETIC TAPE UNIT 2 






T 






SKIP OVER PROGRAM SEGMENT III 






V 






s 
u 

B 
R 


SORT ABBREVIATED ACTIVITY 
RECORDS ON I, J, AND DUPE 
CODE (SCAP13.8) 






\ 


r 






S 

u 

B 

R 


CREATE THREAD OF ACTIVITIES 
IN TOPOLOGICAL SEQUENCE 
(SCAP 14) 






i 


r 






S 

u 

B 

R 


ASSIGN INTERNAL NODE ID 
NUMBERS M AND N (SCAP 18) 
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SSP CONTROL PROGRAM (cont.) 




SORT COMPLETE ACTIVITY REC- 
ORDS INTO TOPOLOGICAL 
SEQUENCE; PUT M AND N 
(INTERNAL NODE NUMBERS) 
AND K (TOPOLOGICAL ACTIV- 
ITY NUMBER) INTO THE SORTED 
RECORDS. READS FROM TAPE 
UNIT 2 AND WRITES ON TAPE 
UNIT 1. REWINDS UNITS 1 
AND 2. (SCAP 20) 



ACTIVITY DEPENDENT INITIAL- 
IZATIONS (SCAP 13.5) 



CREATE INTERNAL DATA AR- 
RAYS FOR CRASH ROUTINE. 
READS SORTED ACTIVITY REC- 
ORDS FROM MAGNETIC TAPE 
UNIT 1 (SCAP 21) 



WRITE SCHEDULED EVENT TIMES 
RECORD FOR ALL-NORMAL 
SCHEDULE ON MAGNETIC TAPE 
UNIT 1 (SCAP 22) 



c 



TEST CRASH OPTION CODE 



J> 



/C 



SET CRASH COMPLETED INDICATOR =0 



PERFORM CRASH ROUTINE 
(SCAP 23) 



\CRA 



CRASH COMPLETED INDICATOR = -1?' 



WRITE SCHEDULED EVENT TIMES 
RECORD FOR NEW SCHEDULE 
ON MAGNETIC TAPE UNIT 1 
(SCAP 22) 



DELAY UNTIL REWIND COMPLETED 

ON MAGNETIC TAPE UNIT 2 



SKIP OVER PROGRAM SEGMENTS I 
AND II 



READ PROGRAM SEGMENT III 
FROM MAGNETIC TAPE UNIT 2 



WRITE END-OF-FILE RECORD 
ON MAGNETIC TAPE UNIT 1 
(SCAP 23.5) 



REWIND AND READ PARAMETERS 
AND HEADINGS FROM MAG- 
NETIC TAPE UNIT 1 (SCAP 24) 



DO PARAMETER AND HEADING 
OUTPUT ROUTINE, PRINTING 
IF THERE IS A PRINTER ONLINE.. 
AND WRITING ON MAGNETIC 
TAPE UNIT 2 (SCAP 26) 



READ ACTIVITY RECORDS FROM 
MAGNETIC TAPE UNIT 1, SET 
UP INTERNAL DATA ARRAYS, 
AND DO INITIALIZATIONS FOR 
SCHEDULE SUMMARY REPORT 
(SCAP 27) 



READ SCHEDULED TIME RECORD 
FROM MAGNETIC TAPE UNIT 1 
(ONE RECORD PER LINE) AND 
OUTPUT SCHEDULE SUMMARY 
REPORT. PRINT IF THERE IS A 
PRINTER ON-LINE AND WRITE 
ON MAGNETIC TAPE UNIT 2 
IN BCD OUTPUT FORMAT. 
(SCAP 29) 



TYPE END OF PROGRAM 
MESSAGE 
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DECIMAL TO BINARY CONVERSION CONTROL 
$BCDCON 





" 


INSERT BCD DECIMAL POINT AND 
BCD PLUS SIGN FOR ENTRY TO DECI- 
MAL TO BINARY ROUTINE 


" 


S 

u 

B 

JL 


CONVERT TO A BINARY NUMBER 
(DIB) 



CREATE ABBREVIATED ACTIVITY RECORDS 




TURN ON "REMOVAL FLAG" 
IN CURRENT ABBREVIATED 
ACTIVITY RECORD B 



SET INDEX A TO EXAMINE FIRST 
ABBREVIATED ACTIVITY RECORD 



I A = I OF CURRENT RECORD? 



3 



J A = J OF CURRENT RECORD? 



3 



DUPE CODEa = DUPE CODE OF CUR 
RENT RECORD? 



3 



yes/7EST LOCATION^ = LOCATION OF 
CURRENT RECORD? (HAS IT FOUND 
ITSELF?) 



TURN ON "REMOVAL FLAG" IN 
ABBREVIATED ACTIVITY RECORD A 



INDEX A = A + l 



$SCAP12P6 



SET UP LOCATIONS FOR STORAGE 
OF FIRST ABBREVIATED ACTIVITY 
RECORD (INDEX B) 



READ ACTIVITY RECORD FROM 
TAPE UNIT 2 



<• 



END ACTIVITY RECORD (TYPE 6000)? 



SETABR 



MOVE I, J, RELATIVE MILESTONE 
TIME, AND DUPE IJ CODE TO CUR- 
RENT ABBREVIATED ACTIVITY REC- 
ORD B FROM TAPE ACTIVITY RECORD 



D = 
DELETE 



NONBLANK = 
.NEW 



TEST ACTIVITY TRANSACTION 
CODE 



ERROR 209 TYPEOUT 



BACKSPACE TAPE ON UNIT 2 TO 
POSITION IN FRONT OF END OF 
ACTIVITIES RECORD 



RETURN TO CONTROL AT BASE +2 



G 




TEST MILESTONE DUMMY INDI- 
CATOR IN TAPE ACTIVITY RECORD 



(DUMMY FROM 
PRIOR RUN) 



TURN ON REMOVAL FLAG IN AB- 
BREVIATED ACTIVITY RECORD B. 



G 



IS LOCATION OF J B = LAST LOCA 
TION OF STORAGE? 



ERROR 203 HALT 



SET UP MILESTONE DUMMY ACTIVE RECORDS 



$SCAP13 



INITIALIZE INDEX A FOR FIRST 
ABBREVIATED ACTIVITY RECORD 



INITIALIZE INDEX X FOR STORAGE 

OF FIRST DUMMY ABBREVIATED AC- 
TIVITY RECORD AFTER LAST ACTUAL 
ABBREVIATED ACTIVITY 



SET ACCUMULATED TAPE RECORD 
NUMBER = NUMBER OF ACTIVITIES + 1 



CLEAR OUTPUT AREA FOR MILESTONE 
DUMMY TAPE ACTIVITY RECORD 



CLEAR: MILESTONE TIME ACCUMU- 
LATION 

CLEAR: NUMBER OF ACTIVITIES 

CLEAR: TIME FOR FIRST MILESTONE 
ABBREVIATED ACTIVITY REC- 
ORD (IN CASE NONE) 

CLEAR: NUMBER OF DELETED ac- 
tivities rm imtcd 



SET UP RECORD TYPE CODE 5 (ACTIV- 
ITY RECORD) AND MILESTONE DUM- 
MY FLAG IN OUTPUT AREA FOR TAPE 
ACTIVITY RECORDS 



A 
^ 



REMOVAL FLAG" ON IN ABBREVI 
ATED ACTIVITY RECORD A? 



MILESTONE START DUMMY SETUP: 
SET 1ST WD B = 1ST WD A 

IB = START DUMMY NODE 
= (33000000) g 

J R = "NEXT DUMMY NODE" 



EXECUTE MILESTONE TAPE 
RECORD SUBROUTINE (MSTWSR) 



MILESTONE END DUMMY SETUP: 
SET 1ST WD B = MAX DURATION = 4095 
I B = "NEXT DUMMY NODE" 
J B = END DUMMY NODE 
= (34000000). 



EXECUTE MILESTONE TAPE REC- 
ORD SUBROUTINE (MSTWSR) 



milestone middle dummy setup: 
set 1st wd b = 

i h = "next dummy node" 

Jb = Ja 



EXECUTE MILESTONE TAPE REC- 
ORD SUBROUTINE (MSTWSR) 



IS MILESTONE TIME IN ABBREVIATED' 
ACTIVITY RECORD A? 




ABRMSDM 



SET "NEXT DUMMY NODE" = J A 
MERGED WITH DUMMY NODE FLAG 
BIT 



"NEXT DUMMY NODE" 



c 



B > MEMORY CAPACITY? 




INCREASE NUMBER OF ACTIVITIES 
BY 1 



_/thi 
"\ac 



THROUGH EXAMINING ABBREV1ATED\ >"» 
ACTIVITY RECORD? 



tetV 



SET UP NEGATIVE OF NUMBER 
ACTIVITIES 



NEGATIVE OF NUMBER OF ACTIVI- 
TIES NOT INCLUDING THOSE TO BE 
REMOVED = NEGATIVE OF NUMBER 
OF ACTIVITIES + NUMBER OF DE- 
LETED ACTIVITIES 



CALCULATE LOCATION + 1 OF J 
FOR LAST ABBREVIATED ACTIVITY 
RECORD NOT INCLUDING THOSE 
TO BE REMOVED 



RETURN TO CONTROL 




SET I B = (37777777) 8 

1ST WD B = (37777777)8 
FOR LATER REMOVE TESTS 



INCREASE NUMBER OF DELETED 
ACTIVITIES COUNTER BY 1 
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SET UP MILESTONE DUMMY ACTIVITY RECORDS (cont.) 



END ACTIVITY FILE AND REWIND UNIT 2 



SSCAPI1 




CAPER 



SET UP I, J, AND FIRST WORD AB- 
BREVIATED ACTIVITY RECORD FOR 
ERROR TYPEOUT 



ERROR 204 TYPEOUT 



INCREASE NUMBER OF ACTIVITIES 
BY 1 



SET NORMAL DURATION OF TAPE 
MILESTONE DUMMY OUTPUT REC- 
ORD - TIME FROM FIRST WORD OF 
ABBREVIATED ACTIVITY RECORD B 
(CONVERTED TO DECIMAL) 



MOVE I AND J FROM MSTN DUMMY 
ABBREVIATED ACTIVITY RECORD TO 
MSTN DUMMY TAPE RECORD OUT- 
PUT AREA 



CONVERT ACCUMULATED TAPE REC- 
ORD NUMBER TO DECIMAL AND 
STORE IN TAPE ACTIVITY RECORD 
OUTPUT AREA 



INCREASE ACCUMULATED TAPE 
RECORD NUMBER BY 1 FOR NEXT 
RECORD 



WRITE MILESTONE DUMMY TAPE 
RECORD ON UNSORTED ACTIV- 
ITY FILE UNIT 2 (MTWSR) 





1' 


T 
u 

B 
R 


WRITE END OF ACTIVITIES REC- 
ORD (TYPE 6000) (MTWSR) 


u 


ERASE 600 WORDS OF TAPE IN 
ORDER TO FOLLOW THIS FILE 
LATER WITH SCHEDULED EVENT 
FILE 


1' 


DELAY UNTIL TAPE READY 


i' 


INITIATE REWIND ON UNIT 2 



RETURN TO CONTROL 



REEL CHANGE VERIFICATION ( F. D. F15) 
SSCAP19 



TYPE MESSAGE: 

RUN IF REEL ON UNIT 1 OK 



RETURN TO CONTROL 
IF CLEAR HALT 



RETURN FROM MSTWSR 
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NONACTIV1TY ORIENTED INITIALIZATIONS 



SSCAP1P5 



DETERMINE SIZE OF CORE STORAGE, 
AND STORE NUMBER OF LAST WORD 
IN "LSTLOC" 



DETERMINE MAXIMUM NUMBER OF 
ABBREVIATED ACTIVITY RECORDS 
WHICH CAN BE CONTAINED IN 
AVAILABLE CORE AND STORE THAT 
NUMBER IN "MAXABR." 



SET UP ORIGINS OF EACH OF 3 
SECTIONS OF ABBREVIATED ACTIV- 
ITY RECORDS (WITH INDEX TAGS) 
IN "ABRAC," "ABRACI," AND 
"ABRACJ." ABBREVIATE ACTIVITY 
RECORDS START AFTER LAST WORD 
OF PROGRAM SEGMENT II; 1/3 OF 
AVAILABLE STORAGE IS ALLOWED 
FOR EACH OF THE 3 SECTIONS. 



SET UP ORIGIN-1 OF EACH OF 3 
SECTIONS OF ABBREVIATED ACTIV- 
ITY RECORDS (WITH INDEX TAGS) 
IN "ABRACMl," "ABRAC1M1," AND 
"ABRAf IM1 " 



SET UP NEGATIVE OF NUMBER OF 
WORDS IN AN ACTIVITY RECORD 
IN "NEGACWD" 



SET UP OUTPUT AREA ORIGIN + 
NUMBER OF WORDS IN AN ACTIV- 
ITY RECORD IN "ENDAC" 



SET LAST LOCATION + I OF SEQUENC- 
ING AREA AND ORIGIN OF TAPE 
SORT THREADED SEQUENCE TAPE IN- 
PUT AREA = "ABRACJ" + 2 (MAXIMUM 
STRING SIZE) IN "THREDIN" (WITH- 
OUT INDEX TAG) 



SET LAST LOCATION + 1 OF TAPE 
SORT SEQUENCING AREA = "ABRACJ 1 
+ 2 (MAXIMUM STRING SIZE) IN 
"SEQL" (WITH INDEX TAG) 



SET LAST LOCATION + 1 OF TAPE 
SORT SELECT AREA= "ABRACJ" + MAX- 
IMUM STRING SIZE IN "SELECTL" 
(WITH INDEX TAG) 



INITIALIZE LOCATION OF NEXT 
ABBREVIATED ACTIVITY RECORD 
MISCELLANEOUS WORD = "ABRAC" 
IN "NXTABR" (WITH NO INDEX! 



SET ORIGIN OF TAPE SORT SELECT 
AREA = ABRACJ (WITHOUT INDEX 
TAG) IN "SELECT." 



SET ORIGIN OF TAPE SORT SE- 
QUENCING AREA = "ABRACJ" + 
MAX STRING SIZE (WITHOUT IN- 
DEX TAG) IN "SEQ" 



RETURN TO 
CONTROL 



WRITE UPDATED PARAM- 
ETERS 



SSCAP19P5 



DELAY UNTIL MAGNETIC TAPE 
UNIT 1 READY 



INITIATE REWIND ON MAGNETIC 
TAPE UNIT 1 



DELAY UNTIL REWIND 
COMPLETED 



ERASE 600 WORDS AT START 
OF TAPE 



CONVERT NA (NUMBER OF 
ACTIVITIES) TO BCD AND 
STORE IN PARAMETER REC- 
ORD (DECSCSR) 



CONVERT NE (NUMBER OF 
EVENTS) TO BCD AND STORE 
IN PARAMETER RECORD 
(DECSCSR) 



WRITE UPDATED PARAMETER 
FILE AS FIRST RECORD ON 
UNIT I (MTWSR) 



RETURN TO CONTROL 



ASSIGN UNSORTED ACTIVITY 
NUMBERS 



SET INDEX A FOR FIRST ABBREVI- 
ATED ACTIVITY RECORD 



INITIALIZE UNSORTED ACTIVITY 
NUMBER = 



INCREASE UNSORTED ACTIVITY 
NUMBER BY 1 



STORE UNSORTED ACTIVITY NUM- 
BER IN LEFT 12 BITS OF FIRST WORD 
OF ABBREVIATED ACTIVITY RECORD 
A. RIGHT 12 BITS UNCHANGED. 




LAST ABBREVIATED ACTIVITY REC- 
ORD PROCESSED (INCLUDING 
MILESTONE DUMMIES AND REC- 
ORDS TO BE REMOVED)? 



yes 



RETURN TO CONTROL 



84 



BRANCH B3 = 



READ PARAMETER 
CHANGE RECORD 
FROM PAPER TAPE. 



SET UP USER'S 
COMMENT 1 
STORE 



PARAMETER AND HOLIDAY SUBROUTINE (SSP only) 
fPAHSR 



BLANK USER'S COM- 
MENT REGIONS. 



MAG. TAPE READ 

READ PARAMETER 
FILE INTO PARAMETER 
REGION. 



INITIALIZE INSTRUCTION 
FOR STORAGE OF 1ST 
3-PART HOLIDAY. 



(CHECK INPUT "V 
DEVICE TYPE J~ 



( BRANCH B3 \ 



BRANCH B3 = 1 



READ PARAMETER 
CHANGE FROM CARDS. 



■/"CHECK CARD TYPE CODE 



G> 



i. 



SET UP USER'S 
COMMENT 2 
STORE 



MOVE USER'S 
COMMENT TO 
COMMON 



(HOLIN) 



PARAMETER CARI> 

(LAST OF SET) 



[PAREC J 





SET UP PAST-FUTURE ACT. 
PRINT INDICATOR. 



SET UP MAJOR ACT. ONLY 
PRINT INDICATOR. 



SET UP RUN ID IN RUNID 
AND RUNIDP1. 



SET UP EFFECTIVE DATE: 

EFFDAY 

EFFMON 

EFFYER 



(TEST FOR ANY yH2 

HOLIDAY CHANGES _J 



(ARE THERE FEWER HOLIDAYS \no_ 
THAN O RIGINALLY? 



yes 



ir FEWh 



NOTE FEWER HOLIDAYS 
COMMENT TO USER 110. 



CLEAR REMAINING HOLIDAYS, 



TRANSFER TO HOLIDAY 
SEQUENCE SUBROUTINE. 



WRITE PARAMETER FILE ON 
TAPE 2. 
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PARAMETER CONVERSIONS 



CALENDAR INITIALIZATIONS 
$SCAP6P5 



ENTER CALENDAR SUBROUTINE 
AT INITIALIZATION ENTRY 
(CALE 1) 



t 
RETURN TO 
CONTROL 



FILE CHANGE INPUT DEVICE SELECTION SUBROUTINE 



$SCAP5P5 



$SCAP4 





1 


' 


s 
u 

B 
R 


CONVERT START DAY TO 
BINARY (BCDCON) 


< 


' 


S 

u 

B 

R 


CONVERT START YEAR TO 
BINARY (BCDCON) 


1 


' 



( 



START YEAR / 0? 
(START DATE GIVEN?) 



> 



CONVERT BCD START MONTH 
TO BINARY MONTH NUMBER 



COMPUTE NUMBER OF DAYS OFF 
PER WEEK AND BUILD DAY OFF 
VECTOR 



DETERMINE AND SAVE NUMBER OF 
WORKING DAYS PER WEEK = 7 - 
NUMBER OF DAYS OFF 



CONVERT TO BINARY AND 
SAVE NUMBER OF WORK- 
ING HOURS PER DAY 
(BCDCON) 



CONVERT BCD UNIT TYPE CODE TO 
BINARY INTEGER CODE AND SAVE 



SAVE RUN ID AND CRASH OPTION 
CODE IN COMMON STORAGE AREA. 



t 
RETURN TO 
CONTROL 







V 




DELAY TILL BUFFER W READY 




" 




TYPE MESSAGE "ENTER CHANGE DE- 
VICE SELECTION CODE (C, P, ORM)" 




1' 




TERMINATE OUTPUT 




i 

1 




DELAY TILL BUFFER W READY 




" 




READ KEYBOARD 




" 




ELIMINATE EXTRANEOUS INFORMA- 
TION FROM CHANGE IN INPUT DE- 
VICE CODE 




1' 




DISCONNECT BUFFER 




^ 


' 




( ALLOWAB 


LE CODE? 


no 



RETURN TO 
CONTROL 
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ACTIVITY RECORD INPUT 



$SCAP7 



CLEAR OUTPUT AREA 



"TEST CONTROL PROGRAM 
BRANCH A INDICATOR. 
PLUS = NORMAL ACTIVITY INPUT 
MINUS = ACTIVITYCHANGE INPUT/ 




NORMAL 



c 



READING 1ST ACTIVITY? 



C 



> 



MAGNETIC TAP^ELECTED AS 
REGULAR INPUT DEVICE? 



) 



MOVE 1ST RECORD FROM REGULAR 
ACTIVITY SAVE AREA TO INPUT AREA 



PROCREC 



MOVE ACTIVITY DATA INTO OUT- 
PUT AREA, EXPANDING IT INTO 
MAGNETIC TAPE ACTIVITY RECORD 
FORMAT 



V! 



RECORD TYPE CODE = 6000 OR 9000 
(END OF ACTIVITIES)? 



5 



RETURN TO CONTROL AT 
BASE +2 (END ACT RETURN) 





READING 1ST CHANGE ACTIVITY? 



D 



MOVE 1ST RECORD FROM CHANGE 
ACTIVITY SAVE AREA TO INPUT 
AREA 



SET 1ST CHANGE INDICATOR TO 
INDICATE THROUGH READING 
1ST CHANGE ACT 



c 



CARD READER SELECTED AS 
REGULAR INPUT DEVICE? 



READ ACTIVITY RECORD 
CARD (CRDSR) 



c 



PAPER TAPE READER SELECTED AS 
REGULAR INPUT DEVICE? 



READ ACTIVITY RECORD 
FROM PAPER TAPE (PTRSR) 
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ACTIVITY RECORD INPUT (cont.) 




READ ACTIVITY RECORD FROM 
MAGNETIC TAPE (MTRSR) 





INCREASE ACTIVITY 
NUMBER BY 1 



EXPECTED ACTIVITY 
NUMBER = ACTIVITY 
NUMBER READ FROM TAPE? 



) 



CHANGE LEADING BLANKS TO 
ZEROS IN EACH OF THE INPUT 
FIELDS 



RECORD TYPE 
CODE =6000 OR 900 
(END OF ACTIVITIES) 



} 



yes f DUMMY ACTIVITY (NORMAL DURA- 
TION) + CRASH DURATION + NOR- 
MAL COST + CRASH COST = 0? 



RETURN TO CONTROL AT 
BASE+ 2 (END ACT RETURN) 



TYPE TAPE OUT OF 
SYNCH ERROR 215 



IF PRESS START 



' 


' 


REWIND TAPE UNIT 1 


i 


' 


SKIP OVER PARAMETER 
RECORD ON UNIT 1 



RETURN TO CONTROL 
ROUTINE TO RESET ACTIVITY 
NUMBER AND START INPUT OVER 



INCREASE ACTIVITY NUMBER BY 1 



c 



NORMAL DURATION 
CRASH DURATION? 



c 



_> 



CRASH COST ^ NORMAL COST? 



CRASH OPTION CODE = C? 



J 



CRASH DURATION 



>0? J 



RETURN TO CONTROL AT 
BASE+ 1 (NOT END ACT FILE) 



CRASH OPTION CODE - C? 



RETURN TO CONTROL AT BASE + I 
(NOT END OF ACT) 



c 



CARD READER SELECTE 
CHANGE INPUT DEVIC 






) 



TYPE 214 ERROR 
MESSAGE (ERROR) 



RELATIVE MILESTONE TIME SET UP 
$SCAP8 



/Ts THIRD 

Ifield AL 



CHARACTER OF MILESTONE 
ALPHABETIC (CALENDAR DATE) 



^V no 



MOVE BCD MILESTONE DAY, 
MONTH, AND YEAR TO "DUR1, 
"DUR2," AND "DUR3." 



SET "YMDFOR" - -1 TO 
INDICATE DATE IN BCD. 



EXECUTE UNIT CONVERSION 
AND CALENDAR DATE SUB- 
ROUTINE (DATBBU) 



STORE RELATIVE MILESTONE 
TIME IN TAPE RECORD TEM- 
PORARILY OVER M NODE 



SKIP PROGRAM SEGMENTS 



DELAY UNTIL REWIND COMPLETED 



SCAN OVER PROGRAM SEGMENT I 



SCAN OVER PROGRAM SEGMENT II 



SCAN OVER PROGRAM SEGMENT III 



▼ 
RETURN TO 
CONTROL 



RETURN TO 
CONTROL 



WRITE ACTIVITY RECORDS ON UNIT 2 



SSCAP10 





1 


' ■ 


MOVE CURRENT TAPE RECORD NUM- 
BER TO TAPE RECORD OUTPUT AREA 


' 


' 


S 

u 

B 
R 


WRITE ACTIVITY RECORD ON 
UNIT 2 (MTWSR) 




' 


' 



RETURN TO 
CONTROL 



TYPE REEL CHANGE MESSAGE 
SSCAP12 



TYPE MESSAGE: 
"REEL CHANGE 
ON UNIT 1" 



END SEGMENT I LOAD ROUTINE 

ENTER FROM LOADING 
EXECUTION RECORD 





" 


DELAY UNTIL MAGNETIC 
TAPE UNIT 2 READY 


" 


REWIND MAGNETIC TAPE UNIT 2 


i 


' 


ERASE INITIAL GAP OF 600 WORDS 


V 


COMPUTE NUMBER OF WORDS IN 
PROGRAM SEGMENT I AND SAVE 
IN COMMON STORAGE 


i 


' 


S 

u 

B 

R 


WRITE PROGRAM SEGMENT I 
ONTO UNIT 2 (MTWSR) 


1 


' 


SET RELOCATION BIAS = AND "RE- 
TAIN SYMBOL TABLE" INDICATOR 
FOR LOAD ROUTINE 



RETURN TO 
CONTROL 



BRANCH INTO LOADER TO LOAD 
SEGMENT II FROM CARDS 
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WRITE SCHEDULED EVENT TIME RECORD 



V - 1 (INDEX OF CURRENT 

WORD IN T VECTOR) 



5ET UP LOCATION OF FIRST WORD 
OF TIME OUTPUT AREA (SAME AS 
FIRST WORD OF LABEL VECTOR) 



SET FIRST LOCATION FOR TAPE 
WRITE SUBROUTINE = ORIGIN 
OF TIME OUTPUT AREA 



SET UP LOCATION OF SECOND 
WORD OF TIME OUTPUT AREA 



SET UP LOCATION OF LAST WORD 
OF TIME OUTPUT AREA+1, WITH 
INDEX (LAST WORD OF LABEL VEC- 

TOR+3) 



SET UP LOCATION OF LAST WORD 
OF TIME OUTPUT AREA (LAST WORD 
OF LABEL VECTOR+2) 



SET RECORD TYPE CODE IN FIRST 
WORD OF TIME OUTPUT AREA = 
'7000' FOR SCHEDULED TIME REC- 
ORD 



W - 1 (TIME OUTPUT INDEX) 

NOTE THAT T, WILL BE STORED IN 
THE THIRD WORD OF THE TIMEOUT- 
PUT AREA 



T W 



LEFT 12 BITS OF Tv 



(SHIFTED RIGHT 12) (T IS TIME) 



€ 



NE? (NE IS NUMBER OF 



V 

EVENTS) r 



■ RIGHT 12 BITS OF Ty 



c 



MOVE LAST TIME FROM LAST WORD 
OF OUTPUT RECORD TO SECOND 
WORD OF OUTPUT RECORD (TOTAL 
PROJECT DURATION) 



WRITE SCHEDULED TIME RECORD 
ON MAGNETIC TAPE UNIT 1 
(MTWSR) 



RETURN TO 
CONTROL 



SET T M AX = 



( MIL 



ESTONE END TIME > TLAST? 



> 



SET INDEX K = 1 



c 



N^ = N CKln ? 



END TEST m K 

DURATIONk 



TM„ + NORMAL 



c 



END TEST 'MAX' 



J* 



( 'end test >«°»' "Yi 



MAX 'END TEST 



INCK 



C 



K > NUMBER OF ACTIVITIES? 



J 



W-l MAX 



T. A , ,-> MILESTONE END TIME 
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CPM CRASH SUBROUTINE 



SCRASHSR 












r^\ 




" 




\ 






TRANSFER TO MNSUB FOR M, N, 
L4M, L4N FOR ACTIVITY K 






" 






" 






LI = 
L2 = 
L3 = 
L4 = 


CLEAR LABELS 










TRANSFER ABIA2 FOR A, and A, 
ACTIVITY K 










V 














v 




L4M = 0? 




1 = 




r— ► 

no 






no 
V 






, CLABEL 






i 


L4N = 0? ^ 






1 = 1 + 1 






yes 






1 


' 


yes 






C vo ) 




( 


(I> NE)? 




\ 








yes 






^ 


no 

r 




" 










L4 = 7777g 
L3 = 
L2= - 
LI = K 








TRANSFER TO LABST TO STORE LABEL I 




















i' 














TRANSFER TO LABST I = N 








1 


r INLl 










L4 = 7777 














V 








1 


' 
















CRASH - 1 






TRANSFER TO LABST I = 1 




DONE 










... 










FIRST LABELING L 


OOP 


no 


CRTEST "—' 












»=—(? 






' 




L4N - 0? 




K = 




















i 

TO SECOND L 


















\ 


f FSTLAB 






TRANSFER TO MNSUB FOR M, N, 
L4M, L4N FOR ACTIVITY NA 






K= K + l 










1 


i 






1 


' 


.yes 






[ (K>NA)? ^ 




1 










no 
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CPM CRASH SUBROUTINE (cont. ) 




CR 1 SECOND LABELING 



SECLAB 



NLAB = 



c 



\y e U cr 



TRANSFER TO MNSUB FOR M, N, 
L4M, L4N FOR ACTIVITY K 



c 



> 



TRANSFER TO AB1A2 FOR AjANDA, 
OF ACTIVITY K 



TRANSFER TO HALFW|D FOR "C" 



PICKUP, BREAKUP, AND 
STORE Fl ANDF2 



c 
c 



K = 1, FORWARD 



,/«, C R 



L4N = 0? 



> 



dh 





c 



e 



> 



y 



c 



C - Fl >L4M? 



3 



TRANSFER TO LABST FOR NODE N 






K = 2, FORWARD 



3 

D 
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CPM CRASH SUBROUTINE (cont. ) 



BREAKTHROUGH 
CHANGE FLOWS 
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CPM CRASH SUBROUTINE (cont. ) 




DELTA = 7777777 . 



< 



J) 



' 


yes 


CUTIME 




I = 






' 










' 








I=H1 






' 


r 






( 


I > NE? 


) 


^— 


' 


no 






( 


L4j = 0? 


) 




* 


1 


yes 














1 1 - ' i 







-*/ RETURN J 



TRANSFER TO MNSUB FOR M, N, 
L4M, L4N FOR ACTIVITY K 



TRANSFER TO AB1A2 FOR A, 
AND A 2 OF ACTIVITY K 



1 



y 



c 



y 



*2 " " M 2 




c 



c 



c 



t 




^•"V 



DELTA = Q 



y 



> 



y 



y 
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CREATE CRASH DATA ARRAYS 



SSCAP21 




READ ACTIVITY RECORD 
TO INPUT AREA FROM 
UNIT 1 (MTRSR) 



(RECORD TYPE = '6000'? "V 

(END ACTIVITY FILE) J 



TAPE RECORD NUMBER 
(IN SYNCH?) 



K? A 




CIASYN 



MOVE ACTIVITY NUMBER FROM 
TAPE TO FIRST WORD OF TYPE OUT 
AREA, AND K TO SECOND WORD 



ERROR 207 TYPEOUT 




CONVERT CRASH DURATION K TO 
BINARY AND SAVE (A) 



CONVERT NORMAL DURATION K 
TO BINARY (B), MERGE WITH A K , 
AND STORE IN AB VECTOR AS AB« 



on f TEST MILESTONE DUMMY ACTIVITY 
RECORD INDICATOR 



5 



DURDIFC 



DUR DIF= B - A 



c 



DUR DIF= 0? 




SET FLOW VECTOR ITEM F K = -1 
(BIG SLOPE SIGNAL FOR LATER TEST) 





TEST IF NUMBER OF RECORDS PRO- 
CESSED = PREVIOUSLY CALCU- 
LATED NUMBER OF ACTIVITIES? 




MOVE NUMBER OF RECORDS READ 
TO TYPEOUT AREA 



ERROR 208 TYPEOUT 
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CREATE CRASH DATA ARRAYS (cont.) 




CONVERT NORMAL COST NC TO 
BINARY 



c 



NCMAX> NC? 



NCMAX - NC 



CONVERT CRASH COST CC TO 
BINARY 



UNSCALED SLOPE C = (CC - NC)/ 
(B - A) ROUNDED 



SET FLOW VECTOR ITEM F K = C 
TEMPORARILY 



c 



SLMAX C 




CONVERT BEGINNING NODE M 
TO BINARY 



CONVERT ENDING NODE N TO 
BINARY 



SET LEFT HALF OF MN VECTOR ITEM 
MN« = M, AND SET RIGHT HALF --= N 



K-" K + t 





SET SLOPE SCALE COUNTER 
(SLBITCNT) = 



SET CURRENT LARGEST SLOPE 
(SLMAX) = 



SET NORMAL COST SCALE 
COUNTER (NCBITCNT) = 



SET CURRENT LARGEST NORMAL 
COST (NCMAX) = 




C 




J 



FIND LZ = NUMBER OF LEADING 

ZEROS + 1 IN NCMAX 



C 



13 - LZ >-l? 



NCSCALE- 13- LZ 



NCSCALE- 
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CREATE CRASH DATA ARRAYS (cont.) 




SLMAX = 



J> 



FIND LZ = NUMBER OF LEADING 
ZEROS + 1 IN SLMAX 



SET NUMBER OF LEADING 
ZEROS + 1 in SLMAX = 



13- LZ >-l? 



} 



SLSCALE-^— 13 - LZ 



ZEROSL 



SCALE - 

(NO SCALING NECESSARY) 



C 




Tn„ > CURRENT VALUE OF TLAST? 




TLAST -« — Tk 



NOTCHG 



K - — K + 1 




c 



3 



MST END TIME = 0? 



MST END TIME- TLAST 



RETURN TO CONTROL 




SET SLOPE VECTOR INDEX H - 1 



SAVE C K 



Fk- — o 

(CLEAR F VECTOR) 



c 



C« = -2? \ V es 

(ZERO DIVISOR SIGNAL) 



yes/ Cv = -1? 



y 



(BIG SLOPE SIGNAL) 



J 



SHIFT Ck RIGHT NUMBER OF 
PLACES SPECIFIED BY "SLSCALE" 
(MAXIMUM C K WILL BE 12 BITS) 
AND ROUND 



Ck- 7777 

(BIG SLOPE) 




N K = END MSTN DUMMY NODE 
(34000000) 8 



c 



3 



MST END TIME >TFIN? 




H ; 



> 



MST END TIME- TFIN 



ERROR 123 TYPEOOUT 
ERROR 
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CREATE CRASH DATA ARRAYS (cont.) 




c 



y 



SAVE C K 



(CLEAR F VECTOR) 



C K =-1? 

(BIG SLOPE SIGNAL) 



J 



SHIFT NUMBER OF PLACES SPECI- 
FIED BY "SLSCALE" OFF LEAST SIG- 
NIFICANT END OF C«. (MAXIMUM 
C K WILL BE 12 BITS) AND ROUND 



C K ^ 7777 

(BIG SLOPE) 



SET LEFT 12 BITS OF ITEM H OF 
SLOPE VECTOR = C K - 1 



SET RIGHT 12 BITS OF ITEM H OF 
SLOPE VECTOR = C K 



H - H + 1 



c 



> 




-H i 



SET TIME VECTOR 
INDEX X = 1 



SET XTH ITEM IN TIME VECTOR 



c 



X > 1/2(NA)? 



y 



MSTEND-" 



EXTRACT AND SAVE B K 
(NORMAL DURATION) 



PICK UP M K 




PICK UP T M (USES LEFT OR RIGHT 
HALF PICKUP SBRTN) 



TFIN — T Mk + B k 

TFIN IS FINISH TIME OF ACT K 



PICK UP N k 



c 



T Nk >TFIN? (IS CURRENT TIME \ yes 
> FINISH TIME?) 







TFIN > MAXIMUM ALLOWABLE 
DURATION (4095)? 



"N. 



C 



TEST K ODD OR EVEN 



T N|< - TFIN 

IN LEFT 12 BITS IN T VECTOR 



T N|< - TFIN 

IN RIGHT 12 BITS IN T VECTOR 
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ACTIVITY ORIENTED INITIALIZATIONS 



SSCAP13P5 



DETERMINE AND SAVE THE ITEMS 
(SHOWN IN TABLE BELOW) IN 
COMMON STORAGE AREA 




IS SUFFICIENT STORAGE AVAIL- 
ABLE TO INCLUDE THE CALENDAR 
PROGRAM? 



DAR J 



NOTE 121 TYPEOUT (CERROR) 



CLEAR START YEAR AS NO CALEN- 
DAR INDICATION 




IS SUFFICIENT STORAGE AVAIL 
ABLE TO RUN WITHOUT CALENDAR 
DATING? 



-JDAR J 



RETURN TO CONTROL 




HNA 


One-Half Number of Activities Rounded 


NE 


Number of Events 


HNE 


One-Half Number of Events Rounded 


NEP2 


Number of Events Plus 2 


HNGNE 


Negative of HNE 


NGNE 


Negative of NE 


NGNA 


Negative of Number of Activities 


MNOFF 


Origin-1 of MN Vector 




ABOFF 


Origin-1 of Normal and Crash Duration Vector 




COFF 


Origin-1 of Slope Vector 


With 

■ Index 

Tag 


TOFF 
FOFF 


Origin-1 of Node Time Vector 
Origin-1 of Utility Flow Vector 


LABOFF 


Origin-1 of Label Vector 


FEND 


Last+1 Location of Utility Flow Vector 




TEND 


Last + 1 Location of Node Time Vector „ 




SLOPEIN 


Origin of Slope Vector - No Index Tab 


TIME 


Origin of Node Time Vector — No Index Tag 


NCOFF 


Origin-1 of Normal Cost Vector -With Index Tag 


NCORG 


Origin of Normal Cost Vector - No Index Tag 


SCHED 


Origin of Scheduled Time Vector— No Index Tag 


SCHEDOFF 


Origin-1 of Scheduled Time Vector - With Index Tag 


SCH1N 


Origin of Magnetic Tape Scheduled Time File 
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END SEGMENT II LOAD PROGRAM 



$SCAP23 
ENTER FROM LOADING END CARD 
WITH EXECUTION ADDRESS 



COMPUTE NUMBER OF WORDS IN 
PROGRAM SEGMENT II = LAST 
WORD OF SEGMENT II - ORIGIN OF 
MAGNETIC TAPE WRITE SUBROUTINE 
+ 1. SAVE IN COMMON STORAGE 



SET UP SEGMENT II ORIGIN FOR 
MAGNETIC TAPE WRITE SUBROUTINE 
= ORIGIN OF MAGNETIC TAPE 
WRITE SUBROUTINE 



WRITE SEGMENT II ONTO MAG- 
NETIC TAPE UNIT 2, FOLLOWING 
SEGMENT I. 



SET RELOCATION BIAS = 0, AND 
"RETAIN SYMBOL TABLE" 
INDICATOR FOR LOADER 



BRANCH TO LOAD PROGRAM TO 
LOAD SEGMENT III 



SCHEDULE SUMMARY REPORT OUTPUT 





SSCAP29 



K - — 
(ACTIVITY INDEX) 



LC > 29? 

(LINE COUNTER) 



J 




SET UP "EJECT PAGE" CODE IN 
FIRST CHARACTER OF OUTPUT AREA 



MOVE PAGE HEADING TO OUT- 
PUT AREA 



MOVE RUN ID TO OUTPUT AREA 



LC -i — 

(FOR NEW PAGE) 



PERFORM LINE OUTPUT SUB- 
ROUTINE - TAPE UNIT 2 - FOR 
PAGE HEADING (RLOUTSR) 



MOVE FIRST LINE OF COLUMN 
HEADINGS, INCLUDING UPSPACE 3 
CODE, TO OUTPUT AREA 



PERFORM LINE OUTPUT SUB- 
ROUTINE - TAPE UNIT 2 

(RLOUTSR) 



MOVE SECOND LINE OF COLUMN 
HEADINGS, INCLUDING UPSPACE 1 
CODE, TO OUTPUT AREA 



PERFORM LINE OUTPUT SUB- 
ROUTINE - TAPE UNIT 2 
(RLOUTSR) 




READ SCHEDULED TIME RECORD 
FROM TAPE UNIT 1 (MTRSR) 



c 



RECORD TYPE CODE = '9000'? \y e * 
(END OF FILE) 



C 



RECORD TYPE CODE = '7000'? 
(SCHEDULED TIME RECORD) 



(OUT OF SYNCH) 



MOVE RECORD TYPE CODE READ TO 
FIRST WORD OF TYPEOUT AREA 




WRITE END OF FILE MARK ON 
MAGNETIC TAPE UNIT 2 



RETURN TO CONTROL 
(END OF PROGRAM) 




c 




TAPE UNIT 1 READY? 



SKIP BACK OVER 2 SCHEDULED 
TIME RECORDS ON UNIT 1 



c 



TAPE UNIT 1 READY? 
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SCHEDULE SUMMARY REPORT OUTPUT (cont . ) 




DETERMINE LOCATION OF Tm k 

(SCHEDULED TIME OF STARTING 
NODE M OF ACTIVITY K) 



DETERMINE LOCATION OFT 



NK 



yes/^NK 

■ 1 (TIMI 

\^_ PUR/ 



T M , >B„? 



(TIME AVAILABLE > NORMAL 
DURATION?) 



(CRASHED) 




MN K NEGATIVE? (NON- 
CONTINUOUS ACTIVITY INDI- 
CATOR ON IN SIGN BIT OF MN 
VECTOR?) 

1 no (CONT) 



AD- 



Tn^- TMl 



(AD = ACTUAL DURATION) 



AD- A K 

(A K IS CRASH DURATION) 



SHIFT C K (SLOPE) LEFT SAME NUM- 
BER OF PLACES WAS ORIGINALLY 
SHIFTED RIGHT DURING SCALE TO 
12 BITS 



c 



■■ 7777? (DUMMY SLOPE) 



ACTUAL COST -« (B K - AD)C K 

+ NC K (NC IS NORMAL COST 
FROM HALFWORD) 



ACTUAL COST-" NC K (NC IS 

NORMAL COST FROM HALFWORD) 



ADD ACTUAL COST TO DOUBLE- 
PRECISION TOTAL PROJECT COST 
ACCUMULATION 



NA? (NA IS NUMBER OF 
ACTIVITIES) 




5 





MOVE UPSPACE 2 CODE TO OUTPUT 
AREA 


" 


S 
U 
B 
R 


CONVERT "SCHEDULE NUMBER" 
TO BCD, AND STORE IN OUT- 
PUT AREA (DECSCSR) 


1' 


S 
U 
B 
R 


CONVERT "PROJECT DURATION" 
TO BCD, AND STORE IN OUT- 
PUT AREA (DECSCSR) 





V 


S 
U 
B 


CONVERT "PROJECT COST" 
TO BCD, AND STORE IN 
OUTPUT AREA (DECSCSR) 


V 


MOVE "PROJECT COMPLETION 
DATE" (OR BLANKS)TO OUTPUT AREA 


V 


U 
B 
_R 


PERFORM LINE OUTPUT SUB- 
ROUTINE-TAPE UNIT 2- 
FOR SCHEDULE LINE (RLOUTSR) 


v 


SN -. SN + I 




101 



SET UP DATA ARRAYS FOR SUMMARY REPORT 



$SCAP27 



(cont.) 




CONTEST 



TEST COST CONTINUITY CODE 
FROM RECORD = N? (NONCON 
TINUOUS ACT) 




LC -« — 50 (LINE COUNTER) 



■ 1 (SCHEDULE NUMBER) 



yes 



STNC 



K - — 1 (ACTIVITY NUMBER) 



TURN ON SIGN BIT OF MN K 
IN MN VECTOR 



H ■* — 1 (NORMAL COST 
VECTOR INDEX) 




TEST MILESTONE DUMMY ACTIVITY 
INDICATOR FROM RECORD = 1? 
(MILESTONE DUMMY RECORD?) 



yes 



TURN ON 13li±BIT (FROM 
LEFT) OF MN K 



READ KltL ACTIVITY RECORD 
FROM MAGNETIC TAPE UNIT 
1 INTO INPUT AREA (MTRSR) 



RECORD TYPE CODE = '6000'? 
(END ACTIVITY RECORD) 



D 



RETURN TO CONTROL 



F C 



TAPE RECORD NUMBER 
FROM TAPE = K ? 




SET SIGN BIT OF MN K = 





SET BIT 13 (FROM LEFT) 
OF MN,, = 




CONVERT NC TO BINARY 
(BCDCON) 




SHIFT NUMBER OF PLACES SPECIFIED 
BY "NCSCALE" OFF LEAST SIGNIFI- 
CANT END OF NORMAL COST (NC), 
AND ROUND OFF (MAXIMUM NC 
WILL BE 12 BITS) 



c 



TEST K ODD OR EVEN? 



y 



SET LEFT 12 BITS OF ITEM H OF 
NC VECTOR = NC, AND RIGHT 
12 BITS = 





MOVE ACTIVITY NUMBER READ 
TO FIRST WORD OF ERROR TYPE- 
OUT, AND K TO SECOND WORD. 



ERROR 210TYPEOUT 



c 




TAPE UNIT 1 READY? 



REWIND TAPE UNIT 1 



yj £ 



TAPE UNIT 1 READY? 



SKIP UNIT 1 OVER 
PARAMETER RECORD 




MERGE NC INTO RIGHT 12 BITS OF 
ITEM H OF NC VECTOR 
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WRITE END OF TIME FILE RECORD 



READ PARAMETERS - UNIT I 



$SCAP23P5 



SSCAP24 





'r 


SET UP ORIGIN OF TIME RECORD 
IN MEMORY 


" 


MOVE END OF FILE RECORD TYPE 
CODE (9000) INTO TIME RECORD 
TYPE FIELD 


'' 


S 
U 
B 
R 


WRITE END OF FILE TYPE REC- 
ORD ON MAGNETIC TAPE UNIT 
1 (MTWSR) 




▼ 



c 



TAPE READY? 



REWIND UNIT 1 



c 



TAPE READY? 



RETURN TO CONTROL 



READ PARAMETERS INTO 
PARAMENTER AREA FROM 
UNIT 1 (MTRSR) 



RETURN TO CONTROL 



END SEGMENT III LOAD PROGRAM 



SSCAP79 
ENTER FROM LOADING END CARD 
WITH EXECUTION ADDRESS 



COMPUTE NUMBER OF WORDS IN 
PROGRAM SEGMENT III = (1) + (LAST 
WORD OF SEGMENT III) - (ORIGIN 
OF MAGNETIC TAPE WRITE SUBROU- 
TINE), AND SAVE IN COMMON 
STORAGE AREA 



SET UP SEGMENT III ORIGIN FOR 
TAPE WRITE SUBROUTINE = ORIGIN 
OF MAGNETIC TAPE WRITE SUB- 
ROUTINE 



WRITE SEGMENT III ONTO MAG- 
NETIC TAPE UNIT 2, FOLLOWING 
SEGMENT II 



SET RELOCATION BIAS = 0, AND 
"NO HALT AFTER END CARD" IN- 
DICATOR FOR LOADER 



BRANCH TO CARD LOAD PROGRAM 
TO START ROUTINE 



SSP START ROUTINE 



SSCAP95 
ENTER FROM LOADING END CARD 
WITH EXECUTION ADDRESS 



' 


' 






' 


' 


DELAY UNTIL MAGNETIC TAPE 
UNIT 2 READY 






S 
U 
B 

R 


READ SEGMENT I FROM MAG- 
NETIC TAPE UNIT 2, USING 
SEPARATE COPY OF MAGNETIC 
TAPE READ SUBROUTINE 
(MTRSRST) 


1 


' 




INITIATE REWIND OF MAGNETIC 
TAPE UNIT 2 






' 


' 




POSITION UNIT 2 OVER PROGRAM 
SEGMENTS II AND III 


' 


' 




DELAY UNTIL REWIND 
COMPLETED 






' 


' 












T 
E, 


3 CONTROL PR 
<ECUTION 


DGRAM TO START 
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CONTROL BLOCK 



PART 1 



$DSRP 



s 
u 

B 
R 


TRANSFER TO PART 2 
FOR PROGRAM SETUP 






CLEAR 










CLEAR VECTOR REGION 




S 

u 

B 
R 


DETAIL SCHEDULE 
OUTPUT ROUTINE 


READRC , , 






i, 


• BUILD MN AND AB 
VECTORS FROM UN- 
SCHEDULED ACTIVITY 
FILE 

• SET SIGN OFMN 
NEGATIVE FOR NON- 
CONTINUOUS ACTIVITIES 

• SET NE TO NUMBER 
OF LAST MODE 






S 

U 
B 
R 


TO DETAIL SR. FOR 
DETAIL SCHEDULE 










M 




RDDUR 




S 

u 

B 
R 


TO TVSR FOR TIME 
VECTOR 




S 
U 
B 
R 


TO DUREAD FOR 
PROJECT DURATION 


^ 






















S 

u 

B 
R 


TO END SUBR FOR 






9 CARD 












:NU fKlNI . SIUP 



SPART2 



TO MAGNETIC TAPE 
SETUP ROUTINE 



TO PARAMETER CONTROL 
ROUTINE FOR PARAMETER 

READ 
UPDATE 
SORT 
PRINT 



COMPUTE VECTOR 
OFFSETS WITH TAG: 

MNOFF 

ABOFF 

TOFF 



SETUP TIME VECTOR LOAD 
LOCATION IN TIMESR 



ERROR 
16 



(IS DATA TYPeN 
r B? J 

| yes 



RETURN TO 
PART 1 



S.*VF RUN ID IN COMMON 



no ( WILL PROBLEMS 
"* I FIT IN CORE? J 

♦ yes 







\ GIVEN 


? / 


' 


yes 

1 


s 

u 

B 

R 




< 







BAD START 
FRROR MONTH 

~12 " 

INCORRECT 
ERROR UNIT TYPE 

13 " 



TO INPCON TO CONVERT 
1ST DURATION 



FIND MAX LOCATION 
IN COMPUTER 



NWDPW = 7 - NDYOFF 



COMPUTE NUMBER OF DAYS- 
OFF/WEEK AND BUILD DAY- 
OFF VECTOR 



CONVERT AND SET UP NA, 
MAJOR, SDAY, SMONTH, 
SYEAR, UNITS, NWHPD, 
FIRPAS = -1 
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DELAY ROUTINE 



ST1DLAY 



ST2DLAY 



DELAY UNTIL BUFFER W 
AND TAPE 1 READY 



DELAY UNTIL BUFFER W 
AND TAPE 2 READY 



RETURN 



END ROUTINE 



SENDSRP 





" 


s 
u 

B 
R 


TO CERROR TO TYPE 
END 


" 


WRITE END-OF-FILE 
ON BCD OUTPUT TAPE 




' 


' 
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DURATION READ ROUTINE 



SDUREAD 



TURN OFF FIRPAS 



ON 



(FIRST PASS) 



J FIRPAS? J 



f CKIN P 



SJ RC INDEV? V 

CARDS\ J 



/8or9 



(DATA \ 
TYPE ? J 



READ PAPER TAPE 



EXIT, END 
OF JOB 



TRANSFER TO CONVERT 
ROUTINE FOR DUR1, 
DUR2, DUR3 



DURATION 
GIVEN AS 



DURATION 
GIVEN IN 
BASIC UNITS 



/CHECK DURAA END DATE 
iTION TYPE? J 




-M DR I 



y 



Schedule 
number given 



CONVERT DURATION TO 
BINARY AND STORE IN DS 



BLANK OUT DUR1, DUR2, 
AND DUR3 



d/is START \ 
"Wear given?J 



COMPUTE 

END DATE 



(UNIT \ 
TYPE? J 



NWD = DS x DAYS/WK 



YRCOUN 



YEAR = YEAR + 1 



YEAR = SYEAR 
MONTH = SMONTH 
DAY = SDAY 



)5 /H£ 

7W 



DAY 
(ROUND DOWN) 



TRANSFER TO CALENDAR 
ENTRY 2 



CONVERT DATE TO BCD 
AND STORE IN DUR1, 
DUR2, DUR3 



NMON = DS 



A/~*M - MMOK 



( \ 

-I NMON > 1? j 



MNON = MNON +■ 12 
MONTH = MONTH + NMON 



Umonth > 12?J 



YEAR = YEAR + 1 
MONTH = MONTH 
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DURATION READ ROUTINE (cont.) 



ERROR 
9 



DS= NWDx-tl^- 
DAY 




START 
YEAR 
GIVEN? 



yes 



UNIT 
TYPE = 4? 



TURN YMDFOR 
ON (BDC 
FORMAT) 



SET UP DAY, 

MONTH, 

YEAR 



TRANSFER TO 
CALENDAR 
ROUTINE, 
ENTRY 3 



Months 



UNIT 
TYPE? 



DAYS 



CONVERT DATE 
TO BINARY DAY, 
MONTH, YEAR 



NMON = 



IX = YEAR - SYEAR - 1 



/ WEEK 
(ROUND UP) 



yes [ SMONTH = U_ 
\ MONTH? / 



NMON = MONTH - SMONTH -1 



(IX)' 



ADJACENT 



NMON = NMON + MONTH - SMONTH + 1 1 



DAY - 30) 



DS = NMON 



NMON = 12 x IX 



NMON = NMON + 1 
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c 



NUMBER 1 



(* NUMBER 2 V 



G. 



UMBER 3 



C 



C 



( ALPHA 2 \ *■ 



(" SWITCH J *• 



INPUT CONVERSION ROUTINE 



SINPCON 



INCREASE CHAR- 
ACTER STATUS 



SHIFT AND ADD 
CHARACTER TO 
DUR1 



INCREASE 

CHARACTER 

STATUS 



SHIFT AND ADD 
CHARACTER TO 
DUR3 



INCREASE 

CHARACTER 

STATUS 



SHIR AND ADD 
CHARACTER TO 
DUR2 



CHANGE DUR3 TO 
DUR1 AND CLEAR 
DUR1 



TO 
ALPHA 1 



f SNFL A 

V. NEGATIVE?/" 


' 


no 


( CHAR= N? \ 




yes 


SNFL = -1 



1 NUMBER 1 

2 NUMBER 2 

3 NUMBER 3 

4 NUMBER 4 



ir 


SNFL = 


" 


SAVE IA1 


" 


BLANK 1ST CHAR- 
ACTER OF IA1 


'' 


CLEAR DUR1, 
DUR2, AND DUR3 


'' 


INITIALIZE WORD 
INDEX = 



SINPCON 



OUT 



RESTORE IA1 



SET CHARACTER 
STATUS CONTROL 
FOR START 



INCREASE WORD 
INDEX BY 1 



WORD INDEX 
>50? 



ERROR 

" II 



LOAD A REG WITH 
CHARACTER WORD 
ON WORD INDEX 



INITIALIZE SHIFT 
COUNTER TO 4 



NEXT 



fDECREASESHIFTX 

counter by 1 ] 
andcheckforJ 
^.negative / 




f 



PICK UP NEXT 
CHARACTER 
AND CHECK 







BLANK 




ZERO 






' 


' 








' 


' 


* 1 SKIP 




* 1 SKIP 


2 SWITCH 




2 NUMBER 2 


3 ERROR 




3 ERROR 


4 OUT 








4 NUMBER 4 



* 1 


ALPHA 1 A 


2 


ALPHA 1 


3 


ALPHA2 


4 


ERROR 



•CHARACTER STATUS 
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TIME VECTOR ROUTINE 



$TVSR- 



SCHNO = 1 
MOVE DUR3 
TO BINSN 
(IN BINARY) 



TURN ON 1ST PASS GATE 
IGATP1 



$TOFAD 



SCHNO = SCHNO + 1 



TRANSFER TO MAG- 
NETIC TAPE READ ROU- 
TINE, BINARY MODE, 
LEFT SIDE STORE 



yesf" 



SNFL NEG? 



off J CHECK END OF 



FILE INDICATOR /(USE CRASH TIMES) 



SCHNO = BINSN? 



TURN OFF 

GATE IGATP1 



TO ERROR ROUTINE FOR 
STATEMENT PRINT 



TO ERROR ROUTINE FOR 
STATEMENT PRINT 



BREAK UP AND STORE 
DURATION JUST READ 
IN DR 



m FPCK 



1ST PASS 



° n (CHECK IGATP1 FOR\ 
^s \' ST PASSS / 



OFF 



DR>DS? 



MOVE LEFT HALF OF TIME 
VECTOR TO RIGHT SIDE 



AT = DS -DR 



BREAK UP TV, FOR TL 
AND TR 



« f yes 



\= * 



TV. = TL + AT 
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INCREASE CKYEAR 
AND YRTYP BY \ 



CALENDAR ROUTINE 
ENTRY 1 - SETUP 

SCALE 1 



CKYEAR = 61 



TURN OFF ALL GATES 



DELDAY = 



YRTYP = 1 
TYPDAY = 1 



CKYEAR = SYEARf 



TURN ON GATE 1 



STORE START YEAR AND 
START DAY TYPES 



SYRTYP = YRTYP 
SDTIY = TYPDAY 



INITIALIZE VECTOR 

SUBSCRIPTS 

YMDTS = 1 
ACCHS = 1 
NYEAR = 1 
ACCDYC = 



TRANSFER TO HCB FOR 
BINARY HDAY, 
HMONTH, AND HYEAR 
OF NEXT HOLIDAY 



GATE 1 ? l ON 



NYEAR = NYEAR + 1 



YEAR CONTROL LOOP 



SYEAR > HYEAR?) 



TYPDAY = TYPDAY + 1 



TYPDAY = TYPDAY + 2 



ip MONCON 



NHY„„^.„ - 



NMONTH = 1 
LDCNT = 



YMDTS = YMDTS + 3 



TYPDAY > 7? 



TYPDAY = TYPDAY -7 



0^1 



MONTH CONTROL LOOP 



13 > NMONTH 








© 



GET MONTH 
FACTORS 



NMONTH = NMONTH + 1 



DIM?\ 



DAY CONTROL LOOP 
yes 
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LDCNT = LDCNT + 1 



SET NDFLG OFF 



CALENDAR ROUTINE (cont.) 




ACCDYC = ACCDYC + 1 



C 



y 



IS CURRENT DATE 
EQUAL TO START 
DATE 



LOSTDYS = -LDCNT 



ACCDYC = 1 
GATE 2 SET ON 



START DAY ALREADY REACHED 



IS CURRENT DAY 
A NORMAL DAY- 
OFF? 



SET NDFLG ON 



IS CURRENT DAY \ no 
A, HO! !D ' Y ' 



^___. 



. —Li IS NDFLG ON? ] 



y 



YMDTS = YMDTS + 3 



TRANSFER TO HCB FOR 
BINARY HDAY, HMONTH, 
AND HYEAR OF NEXT 
HOLIDAY 



Y ei J ARE THERE ANY 
I MORE HOLIDAYS? 



IS THIS 1ST HOL- 
IDAY OF CUR- 
RENT YEAR? 



ACCHS = ACCHS+ 1 



IS NDFLG ON? 



NYEAR 



ADVANCE TYPDAY TO 
NEXT DAY TYPE (CYCLIC) 



NDAY = NDAY ^ 1 



I DAYCON ] 
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CALENDAR ROUTINE (cont.) 




</ NY = 15 \ 



ERROR 
1 



f ZWD + 



NWDY KIW - NWD>-1 



> 



( SDTCY = 7? ~y 



SDTCY = SDTCY + ) 



ENTRY 2 - WORKING DAYS GIVEN 
$CALE2 



NWD = NWD + 1 



TURN OFF 
GATE 4 



CLEAR 

SUMERS 

TND = LOSTDYS 

ZWD = 



INITIALIZE YEAR 

TYPE AND DAY 

TYPE. 

YRTYP = SYRTYP 

SDTCY =SDTIY 



NY = NY + 1 



YEAR = SYEAR + NY -1 



( GATE 4? V 




EVENT YEAR 
FOUND 



SUM LEADING YEARS 



ZWD = ZWD + NWDY. 



TND = TND + 365 



YRTYP=YRTYP+1 



^ YRTYP = 5 ? y 



LEAP YEAR 
JUST PASSED 



ENTRY 3 - EVENT DATE GIVEN 
1 SCALE 3 



TURN 
GATE 3 
ON 



^/ymdforJ 



MOVE 

DAY j iDAYG 
MONTH) TCKMONTHG 
YEAR ' (YEARG 

BINARY —BINARY 



1 


CONVERT 
DAY J 
MONTH | 
YEAR ) 

BCD — «• 


(DAYG 

TO I MONTHG 

' YEARG 

BINARY 




YEAR = YEARG? 



TND = TND + 1 



( SDTCY = 7?} 



yes / \ 

— — f SDTCY = 6? J 



r— SDTCY = SDTCY + 2 



SDTCY = 2 
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CALENDAR ROUTINE (cont.) 



YERFND ( CAL \ YEAR FOUND, 
2 J EDIT MONTHS 




FHY = HOLORG NY 
LHY= FHY + NHY . 



< 



YRTYP = 4? 



TDLY = NWDY K 



TURN ON GATE 3 



LDAYTYP = SDTCY + D ELD AY 



f LDAYTYP = 8?\ 



yes 



LACCDM = TND + DELDAY + 365 
NMONTH = 12 



ENTER REVERSE 
MONTH EDIT LOOP 



NMONTH? 



4,6,9,11 



DELDAY = 



DIM = 28 
DELTA = -1 



DIM =29 
DELTA = 



DIM = 31 
DELTA = 2 




DIM = 30 
DELTA = 1 



CAL 



N / \oFF 

—I Gate 3? j— — - 
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CALENDAR ROUTINE (cont.) 



ERROR 
17 



C 



> 




COMPUTE TOTAL WORKING DAYS 
PRIOR TO CURRENT MONTH 



EVENT OCCURS IN 
START MONTH? 



f TDLY > 0? } 



OFF 



•> yes 



f NO 

^ GATE 4 y— 



NWD > TDLY + ZWD? 



I = SDAY 

TYPDAY = TYSDAY 



FACCDM = 
FACCDM + I-1 



£WD = 



MONTH = NMONTH 
NHTEST = FHY 



TYPDAY > 0? 



> 



TYPDAY = 7 + TYPDAY 



ADVANCE TYPDAY 
(CYCLIC) 



> 



< 



NMONTH = MONTHG? 



LACCDM = FACCDM-1 



LDAYTYP = LDAYTYP -(DELTA + 1) 



(ldaytyp > 07/ 



LDAYTYP = 7 + LDAYTYP 



NMONTH = NMONTH -1 



(■v no 
NMONTH >0? J ERROR 2 



D 



ZWD = £ VD + TDLY 



X 



I = 1 

TYPDAY = LDAYTYP -DELTA 



IS CURRENT DAY 
.NORMAL DAY OFF? 



< 



< 



IS CURRENT DAY A HOLIDAY? 



GATE 4? 



NHTEST = NHTEST + 1 



FACCDM = FACCDM ^ 1 



ZWD = ZWD + 1 



NWD ZWD-] 



j "~~C ' = PIM? ) 



lyes 

ERROR 3 



'■a 



NWD = ZWD? 



NWD = NWD-1 



) C 



/"\. 



—J yes 



114 



CALENDAR ROUTINE (cont.) 




REDUCE TOTAL WORKING DAYS 

IN MONTH BY NUMBER OF NORMAL 

DAYS -OFF 



( N>NDYOFF? V 



SUBTRACT 
HOLIDAYS 



DIFF = LDAYTYP - DYOFF h 



no 


f 










' 


yes 




DIFF = DIFF + 7 










' 


' 



f Y 

/ DIFF > DELTA? V 



WDM = WDM -4 



WDM = WDM-5 



f FHY + NHY NY = N?Y 



< 



FACCDM 5 HOLBIN K , < LACCDM? 



) 



WDM = WDM-1 



ANY HOLI 

YS IN 
YEAR? 
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$DETAIL 

_1_ 



K = K + 1 



(DONE 



PICK UP M AND 
N ON K 



BREAK UP M 
AND N 



/ Y- 

in/ 



PICK UPTM AND 
TN ON M AND N 



BREAK UP TM 
AND TN 



AT = TN-TM 



PICK UP A AND 
BON K 



BREAK UP A 
AND B 



DETAIL SCHEDULE SUBROUTINE 



DURATION = 



NOT CRASHED 



DURATION = B 



CHECK SIGN OF \ ? CONTINUOU S 
i MN ON K? I 



NONCONTINUOUS 



DURATION = A 



DURATION = DT 



BUILD DURATION 
INTO LEFT HALF 
T VECTOR ON K 



LSCALC 



SET AB = cd 
ON K 



PICK UP AND BREAK UP 
LAST LATE FINISH TIME 
ON NE 



PICK UP AND BREAK UP 
M AND N ON K 



PICK UP AND BREAK UP 
DURCUR FROM LEFT HALF 
OF T VECTOR ON K 



PICK UP AND BREAK UP 
LATE FINISH TIME FROM 
AB VECTOR ON N (TLATE) 



TTEST = TLATE. , - DURCUR 



PICK UP AND BREAK UP 
TLATE,, ON M 




DS 



TLATE,, = TTEST 



TLATE,, ,. TTEST ?\ 
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DETAIL SCHEDULE SUBROUTINE (cont.) 



MOVELS 



X = 



( X > NE? V 



BUILD TLATE X INTO 
LEFT HALF T VECTOR 



CLEAR AB ON X 



POSITION TAPE AT 
BEGINNING OF 
UNSCHEDULED 
ACTIVITY FILE 



TO SCHEDULED ACTIVITY 
HEADING SUBROUTINE 



TOTAL COST = 
(DOUBLE-PRECISION) 



READ UNSCHEDULED 
ACTIVITY RECORD FROM 
UNIT 1 IN BCD 



FREE FLOAT = AT-B K 
DURATION = B„ 



CODE TYPE = 5? 



DURATION = A K 
1 




CRASH 



AT = TN - TM 



PICK UP AND BREAK UP 
TM AND TN FROM T 
VECTOR (LT) ON M 
AND N 



BREAK UPMN ON K 



( IND = 2? V 



REBUILD AB ON K 



CONVERT FROM BCD 
TO BINARY A, B, 
ACOST, BCOST, K 



-H IND = 1?| 



DURATION = AT 



(IS ACTIVITY K \ 
NON- 1 

CONTINUOUS?, / 



FREE FLOAT = 



MILESTONE 
DUMMY 



REWIND UNIT 1 



PRINT TOTAL 
COST 
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DETAIL SCHEDULE SUBROUTINE (cont.) 



PICK UP AND BREAK UP 
EARLY START AND LATE 
FINISH FROM T VECTOR 
ON M 



ADD DURATION TO EARLY 
START FOR EARLY FINISH 



SUBTRACT DURATION FROM 
LATE FINISH FOR LATE START 



TOTAL FLOAT = LATE FINISH - EARLY START - DURATION 



TOTAL FLOAT \ no 
= 0? I 



SET CRITICAL INDICATOR 
EQUAL ASTERISK 



SET CRITICAL INDICATOR 
EQUAL BLANK 



-+■[ DURATION = B? 



DURATION = A? 



TCOST - TCOST + COST K 
(DOUBLE-PRECISION) 




COST K = (ACOST - BCOST)(B-DURATION)/(B-A) 
+BCOST 
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DETAIL SCHEDULE SUBROUTINE (cont.) 



CLEAR CALENDAR DAY, 
MONTH, YEAR OF 
CURRENT EVENT ON X 



CONVERT BASIC UNITS 
IN HOURS TO WORKING 
DAYS FOR CURRENT EVENT 
ON X 




i ■ NXCALD 



CED 



X)4? V eS ~l DS 




/ SYEAR = 0? J 



BASIC UNI 
TYPE 



L> 



STORE BASIC UNITS IN 
DAYS FOR WORKING DAYS 
FOR CURRENT EVENT ON 
X 



TRANSFER TO CALENDAR 
SUBROUTINE - ENTRY 2 
WITH NUMBER OF 
WORKING DAY FOR 
DATE OF CURRENT EVENT 



STORE DAY, MONTH, YEAR 
OF CURRENT EVENT IN 
BINARY ON X 



YEAR = SYEAR 

MONTH = SMONTH 

DAY = SDAY 



SET MONTH COUNTER 
NMON TO BASIC UNITS 
OF CURRENT EVENT ON X 



YEAR = YEAR + 1 



NMON = NMON - 12 



NMON) - 1?. 



CONVERT BASIC UNITS 
IN WEEKS TO WORKING 
DAYS FOR CURRENT EVENT 
ON X 



nMON = NMON 



MONTH = MONTH + NMON 



MONTH) 12? 



YEAR = YEAR + 1 



MONTH = MONTH - 12 
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DETAIL SCHEDULE SUBROUTINE (cont.) 



HS 1ST WORD > 
OF MILESTONE 
ZERO OR 

kBLANK? J 



(IS START \ 
YEAR ZERO?h 



IS 2ND WORD 
OF MILESTONE] 
ZERO OR 
k BLANK? 



CONVERT BCD 
MILESTONE 
DATE TO 
BINARY. STORE 
IN DAY, 
MONTH.YEAR 



SET FLAG = 3 



r^ 



(ARE 
UNI 
FIN 



MILESTONE 
UNITS EARLY 
ISH UNITS? 



yes / IS MILESTONE \ no 

— — ( DATE EARLY J— — ■ 

V FINISH? / 



SET FLAG = Y 



SET FLAG = N 



( 



IS THIS A 

MAJOR 

ACTIVITY? 



SET FLAG 
BLANK 



yes /CHECK MAJOR 1 

1 ACTIVITY PRINT 

VONLY 1 



PRINT 

SCHEDULED 

ACTIVITY 



PROCESS NEXT 
ACTIVITY 
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DETAIL SCHEDULE PRINT SUBROUTINE 



$SRPINT 



PRINT 
INITIALIZATION 



MOVE 1ST LINE OF 
COLUMN HEADING 
(INCLUDING CONTROL 
CODE) TO OUTPUT 
AREA 



LINE COUNTER = 50 
PAGE COUNTER = 1 


"' 



TRANSFER TO RLOUTSR 



ZERO LINE COUNTER 



$SOUTSR 



ACTIVITY PRINTOUT 
ENTRY 



LINE COUNTER 
>22? 




MOVE 2ND LINE OF 
COLUMN HEADING (IN- 
CLUDE CONTROL CODE) 
INTO OUTPUT AREA 



INCREMENT PAGE COUNT 
BY 1 



TO 
DPRT1 



SET SKIP TO TOP OF FORM 
CODE INTO OUTPUT AREA 



TRANSFER TO RLOUTSR 



TRANSFER TO RLOUTSR TO 
OUTPUT DETAIL SCHEDULE 
PAGE HEADING 



MOVE 'DETAIL SCHEDULE 
REPORT 1 HEADING TO 
OUTPUT AREA 



(On 

l DPRTI / 



TOTAL COST 
STOTCPR PRINT ENTRY 



CONVERT PAGE COUNTER 
TO BCD AND STORE IN 
OUTPUT AREA 



MOVE SCHEDULE 
NUMBER AND 
VALUE TO OUT- 
PUT AREA 



MOVE COMPL DATE, 
DURATION, RUN ID AND 
PAGE HEADINGS TO OUT- 
PUT AREA 



MOVE TOTAL COST OF 
SCHEDULE HEADING TO 
OUTPUT AREA 



MOVE RUN ID NUMBER 
TO OUTPUT AREA 



CONVERT DOUBLE- 
PRECISION COST TO BCD 
AND STORE IN OUTPUT 
AREA 



CONVERT TOTAL DURATION 
TO BCD AND STORE IN 
OUTPUT AREA 



IS START DATE 
GIVEN? 



SET UPSPACE 3 LINE CODE 
IN OUTPUT AREA 



BUILD AND SET UP START 
DATE IN OUTPUT AREA 



SET START DATE TO BLANK 
IN OUTPUT AREA 



TRANSFER TO RLOUTSR 



EJECT TO TOP OF FORM 
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DETAIL SCHEDULE PRINT SUBROUTINE (cont.) 



MOVE MILESTONE FLAG 
TO OUTPUT AREA 



SET UPSPACE 2 LINE 
CODE INTO OUTPUT 
AREA 



TRANSFER TO RLOUTSR 



LOAD INDEX = (-2) 
TO STORE LEFT I, J 
AND DUP. CODE IN 
OUTPUT AREA 



MOVE I, J, AND DUP. 
CODE TO OUTPUT 
AREA ON INDEX 




MOVE COST AND 
RESPONSIBILITY CODES 
TO OUTPUT AREA 



MOVE M, N, K, AND 
CRITICAL INDICATOR 
TO OUTPUT AREA 



MOVE ACTIVITY 
DESCRIPTION TO 
OUTPUT AREA 



CONVERT DURATION 
AND COST TO BCD 
AND STORE IN OUTPUT 
AREA 



CONVERT THE BASIC 
UNITS OF EARLY START, 
EARLY FINISH, LATE 
START, AND LATE 
FINISH TO BCD AND 
MOVE INTO OUTPUT 
AREA 



LOAD INDEX = (+22) 
TO STORE RIGHT I, 
J, AND DUP. CODE 
IN OUTPUT AREA 



SET UP CONTINUOUS 
ACTIVITY INDICATOR 
IN OUTPUT AREA 



SET UPSPACE 2 LINE 
CODE INTO OUTPUT 
AREA 



SET UP MILESTONE 
INDICATOR IN 
OUTPUT AREA 



CONVERT TOTAL FLOAT 
AND FREE FLOAT TO BCD 
AND STORE IN OUTPUT 
AREA 



CONVERT EARLY START 
EARLY FINISH, LATE 
START, AND LATE 
FINISH DATES TO BCD 
AND STORE IN OUTPUT 
AREA 



TRANSFER TO RLOUTSR 



r IS A CALEN- 1 

DAR START DATE 
LGIVEN? I 
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ERROR SUBROUTINE 



CARD READ SUBROUTINE 



$CRDSR 



HALT ENTRY 


CONTINUE ENTRY 


$ERROR 




1 $CERROR 


SET UP ERROR HALT 




FORM COMMON MARK 
POINT 


' ' 




" 


DELAY TILL BUFFER 
READY 




DELAY TILL BUFFER 
READY 


< 


' 




" 


READY TYPEWRITER 




READY TYPEWRITER 


' 






" 


TYPE STOP XXXX 




TYPE NOTE XXXX 








" 






NOP ERROR STOP 










' 


1 




RETl 


JRN 



'CHECK, IS I, J, D, 
i PRINT DESIRED? 



TYPE 

I = XXXX 
J = XXXX 
D = XXXX 



CLEAR I, J, D 



TERMINATE OUTPUT 




DELAY TILL 
BUFFER READY 



/IscardN 

( READER ) no r 

\ READY ?y 



INITIALIZE WIM 
INSTRUCTION TO 
START OF INPUT 
AREA 




READ A 
CARD IN 
DECIMAL 



INCREASE WIM 
ADDRESS BY I 



(81ST \n°_ 

CHARACTER J 



/ BUFFER \ 

^ OK ( ERROR j 

VTEST J 



PRESS 
iSTARTi 
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PAPER TAPE READ SUBROUTINE 



$PTRSR 



DELAY TILL 
BUFFER READY 



LOAD INDEX 
= -51 



START PAPER 
TAPE, 1 CHAR- 
ACTER READ 



INITIALIZE 
CHARACTER 
COUNT = 3 



CLEAR 

CHARACTER 

ACCUMULATOR 



BRING CHARAC- 
TER INTO 
MEMORY 



f IS THIS CHARAC- 
TER A SPACE? 



CHANGE TO 
BLANK 



ADDCHAR ir 



ADD CHARACTER 
TO ACCUMU- 
LATOR 



a> 



' INCREASE WORD\ 
COUNT BY 1. J 
UTHECK FOR +. / 



ERROR 107 



NEXT WORD = 
ALL BLANK 



STORE WORD 
ON INDEX 



DISCONNECT 



/*Y 



RETURN 

RELOAD INDEX 
DISCONNECT 



okf 



SHIFT 6 BITS TO 
LEFT AND MASK 



WORD FULL 



BUFFER ERROR 
TEST? 




INCREASE WORD\ 
COUNT BY 1. 
CHECK FOR +. / 



¥= + 



r^J. 



{ 



CARRIAGE 
RETURN TEST 



> 



SHIFT 6 BITS TO 
LEFT AND MASK 



^REDUCE CHARAC 
TER COUNTER 
AND CHECK FOR 

^NEGATIVE 



} 



^./REDUCE CHARAC A 

'. (TER COUNTER 

I AND CHECK FOR 
XNEGATIVE J 



ADD BLANK TO 

CHARACTER 

ACCUMULATOR 



STORE WORD 
ON INDEX 



REGION 
NOT FULL 



FULL, 

IGNORE 
WORD 



/INCREASE WORD> 
COUNT (INDEX) 

l BYU J 

VCHECK FOR +. / 
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$MTWSR 
CHECKSUM ENTRY 



MAGNETIC TAPE WRITE SUBROUTINE 



$MTWSRNC 

NO CHECKSUM ENTRY 



SET UP WRITE, FILE PROTECT, 
TAPE READY, ERASE REVERSE, 
AND ERASE FORWARD 
INSTRUCTIONS. SAVE INDEX. 



1ST RETRY J 



COMPUTE LAST LOCATION 
TO WRITE FROM + 1 



1 INTO ERASE AND RETRY 
INDICATOR 



f CHECK FOR FILE \ NO RING 
[PROTECT RING J 



/\ 



DELAY TILL BUFFER READY 



LOAD INDEX WITH NEGA- 
TIVE OF WORD COUNT 



START TAPE IN MOTION 



CLEAR CHECKSUM 



REDUCE AND\ 
TEST RETRIES U 
INDICATOR / 



2ND RETRY 



DELAY TILL TAPE READY 
FOR TURN AROUND 



LOAD INDEX WITH NEGA- 
TIVE OF WORD COUNT 



ERASE FORWARD TILL 
WORD COUNT GOES + 



DELAY TILL BUFFER READY 



r^ 



, / INCREASE 
_Z_J INDEX BY 1. 



CHECK FOR +. 



ADD WORD TO CHECKSUM 



MEMORY TO BUFFER ON 
INDEX 




ERASE FORWARD TILL 
WORD COUNT GOES 



LOAD INDEX WITH NEGA- 
TIVE OF WORD COUNT 



-W SWRIND 



NO CHECKSUM 



WRITE CHECKSUM ON TAPE 



DELAY TILL TAPE READY 



DELAY TILL BUFFER READY 



BUFFER ERROR \_ERROR_ 
TEST J 



TERMINATE OUTPUT 



LOAD INDEX AND RETURN 



125 



ENTRY FOR 
LEFT HALF STORE 



$MTRSR1 



CHECKSUM INDICATOR 

= (-) 



SET UP COMMON 
MARK LOCATION 



SET UP LEFT 
HALF SHIFT 
DUMMY 



SAVE INDEX 



SET UP READ, TAPE 
TEST, BACK-SPACE 
AND FORWARD 
SKIP INSTRUC- 
TIONS 



COMPUTE LAST 
LOCATION OF 
INPUT AREA 
PLUS 1 



ENDFILE = 



SET UP RETURN 



INITIALIZE 
LONG AND 
SHORT RETRY TAL- 
LIES TO 5 AND 3 



LOAD INDEX TO 
NEGATIVE OF 
NUMBER OF 
WORDS 



MT 



MAGNETIC TAPE READ SUBROUTINE 



ENTRY FOR 
NORMAL STORE 

$MTRSR 



NO CHECKSUM 
ENTRY 

MTRSRNC 



CHECKSUM INDICATOR 



CHECKSUM INDICATOR 

= (+) 



SET UP NORMAL 
READ DUMMY 



( ERRpA 
I READ y* 



DELAY TILL 
BUFFER READY 



TAPE READY 
DELAY 



— Ji MT1 J 



TAPE READY 
DELAY 




BACKSPACE ONE 
RECORD 



BACKSP 



ADD WORD TO 
CHECKSUM 



<g 



CHECK FOR 
9000 CODE? 



2h 



STORE BUFFER 
WHEN READY 



EO F TEST [ "Q 

/ END-OF-FILE 
I FLAG IN 1ST 
\ WORD? 



STORE BUFFER 
WHEN READY 



CLEAR CHECKSUM 
ACCUMULATOR 




> 



r\ 



BUFFER READY \ yes 
TEST 



SET ENDFILE IN- 
DICATOR = (-1) 



IS SPECIFIED BUF- 
FER CHANNEL 
READY? 




ERROR 
READ 



y\ 



LEFT HALF 
STORE? 



SHIFT AND 
MERGE WITH 
OLD DATA 



I 



STORE WORD 



INCREMENT 
WORD COUNT 
BY 1 



no I WORD COUNT 



yes 



STORE CHECK- 
SUM FROM BUF- 
FER WHEN 
READY 



BUFFER ERROR 

TEST? 



CHECKSUM 
TEST? 



RELOAD INDEX 
AND RETURN 



ok 



NO 
MATCH 



REPLACE 12's BY 
00 IN COMPUTED 
CHECKSUM AND 
RECHECK 
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REPORT LINE OUT SUBROUTINE 



SRLOUTSR 



SET UP TAPE UNIT NUMBER 
INCREMENT LINE COUNTER 



SAVE INDEX 



TRANSFER TO MTWSRN 
TO WRITE RECORD ON 
MAGNETIC TAPE (NO 
CHECKSUM) 




DELAY TILL PRINTER READY 



4 TO PRINT ERROR 
COUNTER 



SKIP OR SPACE ; 



SKIP PRINTER 



UPSPACE PRINTER 



REMOVE CONTROL 
CHARACTER 




yes 



HAVE 5 WRITE ) 
ATTEMPTS BEEN 
MADE? J 



LOAD INDEX 



DELAY TILL BUFFER READY 



SET OUTPUT AREA 
TO BLANKS 



BUFFER ERROR 



ERROR 



LOAD INDEX - - 33 



l'ERMINATE OUTPUT and 
INCREASE LINE COUNT 



CONNECT PRINTER 



MEMORY TO BUFFER TILL 
INDEX GOES + 
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BINARY TO BCD CALENDAR DATE CONVERSION SUBROUTINE DECIMAL TO BINARY CONVERSION SUBROUTINE DOUBLE-PRECISION BINARY TO BCD CONVERSION SUBROUTINE 



$BCDCALSR 



$BDD 



' 




SAVE INDEX 


' 


r 


LOAD INDEX WITH LOCA- 
TION OF CALENDAR DAY 


' 


1 


PICK UP CALENDAR YEAR 
ON INDEX AND CONVERT 
TO BCD USING POP BID 


' 


' 


TRANSFER TO DECIMAL 
SCALE SUBROUTINE 
DECSCSR TO SCALE, AND 
BLANK LEADING ZEROS, 
SIGN AND DECIMAL POINT 




i 


PICKUP CALENDAR DAY 
ON INDEX AND CONVERT 
TO BCD USING POP BID 


1 


' 


TRANSFER TO DECSCSR 


' 


' 


PICK UP BCD MONTH 
NAME FROM "MONTHS- 
OF-THE-YEAR TABLE" 
ON MONTH NUMBER 
IN INDEX 






PACK BCD DATE IN A AND 
B REGISTERS AS FOLLOWS: 

A B 


|M|M|Y|Y 


| b|d|d|m| 








1 


RELOAD INDEX 



)DIB 



X 



SIMULATE SDS DECIMAL 
TO BINARY SINGLE- 
PRECISION, FIXED- . 
POINT PROGRAM 
OPERATOR 



SIMULATE SDS DOUBLE- 
PRECISION BINARY-TO- 
DECIMAL, FIXED-POINT 
CONVERSION PROGRAM 
OPERATOR 



RETURN 



PARAMETER CONTROL SUBROUTINE 



RETURN 



MAGNETIC TAPE SETUP ROUTINE 



$MTSETUP 



SPARCON 







1 ' 




S 
U 
B 
R 


TO SCAP3 TO READ 
PARAMETERS FROM 
MAGNETIC TAPE 














' 


1 




S 
U 
B 
R 


TO SCAP2 FOR I/O 
DEVICE SELECT 
CODES 






< 


1 




RGINDEV-^CHINDEV 






1 


1 


DEVICE CODE 
ERROR RETURN 


S 

U 
B 
R 


TO SCAP5 TO BRING 
IN PARAMETER 
CHANGES FROM 
SELECTED DEVICE 








' 


' 




S 
U 
B 
R 


TO SCAP6 TO 

SEQUENCE 

HOLIDAYS 








' 




S 
U 
B 
R 


TO SCAP26 TO 
OUTPUT HEADING 
AND PARAMETER 
PAGE 



DELAY TILL TAPE 
UNIT 1 READY 



REWIND TAPE 
UNIT 1 



DELAY TILL TAPE 
UNIT 2 READY 



REWIND TAPE 
UNIT 2 



DELAY TILL BUF- 
FER W READY 



DELAY TILL TAPE 
UNIT 2 READY 



ERASE FORWARD 
600 WORDS ON 
TAPE UNIT 2 



TERMINATE OUT- 
PUT 



RETURN 



RETURN 
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I/O DEVICE SELECTION ROUTINE 



SSCAP2 



IS INPUT DE- > 
VICE CODE 
LOADED WITH 
PROGRAM DECK?, 




PRTST 



DELAY TILL 
BUFFER READY 



DEVINST 



TYPE "ENTER 
INPUT DEVICE 
CODE" (C 
OR P) 



TERMINATE 
OUTPUT 



DELAY TILL 
BUFFER READY 



READ TYPED-IN 
CODE C OR P 



ELIMINATE 

EXTRANEOUS 

CODE 



DISCONNECT 
BUFFER W 



RETURN -*- 



MS PRINTER \ 
CODE LOADED \ 
WITH PROGRAM/ 

.DECK? / 



DELAY TILL 
BUFFER READY 



TYPE "ON LINE 
PRINTER" (Y 
OR N) 



TERMINATE 
OUTPUT 



DELAY TILL 
BUFFER READY 



READ TYPED-IN 
CODE YOR N 



ELIMINATE 

EXTRANEOUS 

CODE 



DISCONNECT 
BUFFER W 



IS ENTERED 

CODE 

'Y OR N'? 
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PARAMETER INPUT ROUTINE 



$SCAP3 



$SCAP5 




PAR IN 



BRANCH B3 = 



TO PAPER TAPE READ ROU- 
TINE FOR INPUT RECORD 



CLEAR PARAMETER REGION 



SET BRANCH A = 1 



DSRP 
ONLY 



INITIALIZE INSTRUCTION 
FOR STORAGE OF 1ST 
HOLIDAY IN COMMON 
REGION 



PAPER 
TAPE 



SSP ONLY 



CHECK INPUT DEVICE TYPE' 



MAG 
TAPE 



READ ENTIRE 570-WORD 
PARAMETER RECORD INTO 
PARAMETER REGION 



(1) 

RUN 

HEADING 



MOVE HEADING DATE 
FROM INPUT AREA TO 
PARAMETER AREA 



(2) 

RUN 

PARAMETERS A 



MOVE RUN PARAMETER 
DATA FROM INPUT AREA 
TO PARAMETER AREA 




SET BRANCH A3 
= (CHANGE 
INPUT) 



INITIALIZE INSTRUCTION 
FOR STORAGE OF 1ST HOLI 
DAY IN COMMON REGION 



PAPER 
TAPE 




PAR IN 



TEST SELECTED \ 
CHANGE INPUT] 
DEVICE? / 



CARDS 




BRANCH B3 = 1 



TO CARD READ ROUTINE 
FOR INPUT RECORD 



(8) SSP ONLY 



(4) 

RUN 

PARAMETERS B 



MOVE RUN PARAMETER 
DATA FROM INPUT AREA 
TO PARAMETER AREA 



(6,7,9 and > 9) 




(8) DURATION 
SELECT 



OK DSRP ONLY 



(5) DSRP 



(5) ACTIVITY 

OK SSP 

ONLY 




PAR IN 



PAPER TAPE, B3 = 1 BRANCH B3=l. CARDS 

(^ BRANCH B3? J 



( PARIN \ 
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PARAMETER INPUT ROUTINE (cont.) 




PARIN \ HOUN 



SET HOLIDAY TYPE CODE = 3 



TRANSFER TO HOLIDAY 
STORE ROUNTINE - YEAR 



LOAD INDEX WITH -50 




CHECK, IS \ 
1ST OR 2ND \yes 
CHARACTER OF I 
YEAR BLANK?/ 



ERROR 102 



RELOAD BSAVH 



INITIALIZE SHIFT COUNTER 
FOR 4 CHARACTERS (= -3) 



SHIFT LEFT 6 BITS FOR 
EACH UNIT OF YEAR 
COUNT 



STORE BSAVH IN ASAVH 



PICK UP NEXT WORD FROM 
INPUT AREA ON INDEX 
(B REGISTER) 



SHIFT NEXT CHARACTER 
INTO A REGISTER FOR 
PROCESSING 



DIGIT OR 
BLANK 



LOAD 

A REG = ORG. WD 

B REG = ORG. (WD + 1) 



YEAR SHIFT COUNT 
SHIFT COUNT 



TRANSFER TO HOLIDAY 
STORAGE ROUTINE-MONTH 



(CHECK \ 

CHARACTER J 



CThT!cK3RD~" > V_2I! 
CHARACTER J 



DIGIT OR 
BLANK 



ALL CHARACTERS 
NOT PROCESSED | 



REDUCE AND 
TEST SHIFT 
COUNTER 



GET NEXT WORD 



^INCREASE AND> 

TEST WORD 

COUNTER 
< (INDEX) j 



( PARIN \ 



HOLIDAY STORE 
ROUTINE 



MOVE IN 3RD MONTH 
CHARACTER 



STORE A REGISTER IN 
CURRENT HOLIDAY 
LOCATION 



SET ASAVE = B REGISTER 



PICK UP NEXT WORD 
(B REGISTER) 



ANY SHIFTS 
LEFT? 



CURRENT LOCATION = 
CURRENT LOCATION +1 



TRANSFER TO HOLIDAY 
STORAGE ROUTINE - DAY 
(BACK SHIFT 1) 



(AREA \ 

OVERFLOW? J 



c 



CHECK 2N 
CHARACTER 
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PARAMETER INPUT ROUTINE (cont.) 



/ \ TSTHOLCH 
/ PARIN J 



no /WERE THERE \ 
| —4 ANY HOLIDAY \* 

VCHANGES? J 



yes 



MOVE ACTIVITY 
CHANGE DATA 
TO ACTIVITY 
CHANGE SAVE 
REGION 



/ WERE THERE 
/FEWER CHANGES 
\THAN ORIGINAL 
\ HOLIDAYS? 







REGULAR (SSP ONLY) 



MOVE ACTIVITY 
DATA TO REGU- 
LAR ACTIVITY 
SAVE REGION 



yes 



TRANSFER TO 
CERROR TO 
TYPE NOTE 110 



SET 3 WORDS 
OF NEXT 
HOLIDAY TO 



RETURN 
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HOLIDAY SORT SUBROUTINE 



$SCAP6 



INITIALIZE HOLIDAY 
MONTH LOCATION 




ARE ALL 

HOLIDAYS 

SEQUENCED? 



LOAD INDEX = 



INCREMENT IN- 
DEX BY 1 



yes 



REMOVE BINARY MONTH 
NUMBERS FROM ALL 
HOLIDAY MONTHS. 




HAVE ALL MONTHS \ NOT SAME 

IN BCD MONTH TABLE H — 

■ BEEN CHECKED? / 



'COMPARE CURRENT \ 
HOLIDAY MONTH 
AGAINST BCD MONTH . 

i TABLE ON INDEX? / 



ERROR 111 



SAME 



STORE MONTH NUMBER 
IN 1ST CHARACTER OF 
BCD MONTH 



EXCHANGE OUT OF 
SEQUENCE HOLIDAY 
DAY, MONTH, AND 
YEAR WITH PREVIOUS 
HOLIDAY DAY, 
MONTH AND YEAR 



NO HOLIDAYS , 




HSORT 



TEST FOR NO 
HOLIDAYS? 



INCREASE MONTH LOCA- 
TION BY 3 



INITIALIZE 1ST HOLIDAY 
DAY LOCATION INTO IN- 
DEX 



SEQUENCE CHECK 



INCREASE INDEX 
BY 3 



IS NEXT HOLI- 
DAY YEAR = 
CURRENT HOL- 
IDAY YEAR? , 



yes 



'IS NEXT HOLM 
DAY MONTH = 
CURRENT HOLI- 
DAY MONTH?, 



IS NEXT YEAR A 
GREATER THAN 
THIS YEAR? 



'IS NEXT MONTh 

GREATER THAN 

, THIS MONTH? 



s\. 



IS NEXT DAY ' 
GREATER THAN 
THIS DAY? 



yes 



'IS NEXT HOLM 
DAY DAY = 
CURRENT HOL- 
IDAY DAY? J 




yes 



ERROR 112 
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RUN HEADING AND PARAMETER PRINT SUBROUTINE 



SSCAP26 



SET OUTPUT AREA TO ALL 
BLANKS 




SET UPSPACE 2 LINE CODE IN- 
TO OUTPUT AREA 



SET SKIP TO TOP OF FORM 
CODE INTO OUTPUT AREA 



I RUNP2 1 



TRANSFER TO RLOUTSR 



MOVE RUN ID TITLE TO OUT- 
PUT AREA 



MOVE DETAIL SCHEDULE 
REPORT HEADING TO 
OUTPUT AREA 



SET UP UNITS TYPE IN OUT- 
PUT AREA 



MOVE RUN ID NUMBER 
TO OUTPUT AREA 



TRANSFER TO RECORD LINE 
PRINT SUBROUTINE (RLOUTSR) 



SET UP START DATE IN OUT- 
PUT AREA 



TRANSFER TO RLOUTSR 



SET UPSPACE 2 LINE CODE IN 
OUTPUT AREA (042606060) 



SET UP WORK HOURS/DAY 
IN OUTPUT AREA 



1 



MOVE 1ST LINE OF COLUMN 
HEADING INTO OUTPUT AREA 



MOVE 1ST HEADING CARD IM- 
AGE INTO OUTPUT AREA 



SET UP NORMAL WORK DAYS 
IN OUTPUT AREA 



SET UPSPACE 5 LINE CODE IN 
OUTPUT AREA (045606060) 



BLANK OUT CARD TYPE 



SET UP SCHEDULE OPTION 
CODE, MAJOR ACTIVITY 
OPTION CODE, AND SCHED- 
ULE SPECTRUM OPTION CODE 
IN OUTPUT AREA 



TRANSFER TO RLOUTSR 



TRANSFER TO RLOUTSR 



SET UPSPACE 2 LINE CODE 
IN OUTPUT AREA 



MOVE 2ND LINE OF COLUMN 
HEADING INTO OUTPUT AREA 



MOVE TYPE 4 PARAMETER 
CARD IMAGE INTO OUTPUT 
AREA 



TRANSFER TO RLOUTSR 



SET UPSPACE 1 LINE CODE IN 
OUTPUT AREA (041606060) 



BLANK OUT CARD TYPE 



I RUNP3 I 



(7\ 

l RUNP2 J 



I RUNP1 J 
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RUN HEADING AND PARAMETER PRINT SUBROUTINE (cont.) 



[ RUNP3 J 



MOVE "HOLIDAY CALEN- 
DAR DATES" HEADING TO 
OUTPUT AREA 



SET UPSPACE 4 LINES CODE 
IN OUTPUT AREA 



TRANSFER TO RLOUTSR 



INITIALIZE PICKUP IN- 
STRUCTIONS FOR OUTPUT 
OF CALENDAR DATES OF 
HOLIDAYS 



SET UPSPACE 3 LINE CODE 
IN OUTPUT AREA 



SET UPSPACE 2 LINE CODE 

IN OUTPUT AREA 



TRANSFER TO RLOUTSR 



LOAD INDEX WITH NEG- 
ATIVE OF NUMBER OF 
HOLIDAYS PER LINE (-22) 



j. + / ADVANCE INDEX 

, BY 2 AND CHECK 
LINE NOT DONE I 



INCREASE HOLIDAY PICK- 
UP INSTRUCTIONS BY 3 



TEST FOR LAST 
HOLIDAY 



BUILD HOLIDAY DATE AND 
STORE IN OUTPUT AREA 



TRANSFER 1U KLOul>K 
TO PRINT LAST HOLIDAY 
LINE 
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SEGMENT 2 LOAD SUBROUTINE 



SSG2LOAD 







i 




s 




u 


TO T2DLAY FOR BUFFER W 


B 


AND TAPE 2 DELAY. 


R 






" 






REWIND TAPE 2. 






11 






S 








u 

B 


TO T2DLAY 






R 








" 




S 




u 


TO MTRSR TO BRING IN 


B 


SEGMENT 2 FROM TAPE 2. 


K 






' 


BRANCH TO SEGMENT 2 


CONTROL AT SG2LOAD. 



FIRST RUN REQUEST SUBROUTINE (F.D. F05) 
JFRSTRUN 



DELAY TILL BUFFER W READY 



TYPE MESSAGE: 

FIRST PROGRESS RUN (Y OR N) 



TERMINATE OUTPUT. 



DELAY 60 M SEC. 



READ 1 CHARACTER 
TYPE-IN MESSAGE. 



C MESSAGE = N? \ 



1 



I RETURN) 




SEGMENT I SETUP SUBROUTINE (F. D. F07) 
SSEGISU 



* 


NONE 


FIND LAST LOCATION 
IN COMPUTER 


FOUND f 


*-( 



+C 215 ERROR ^ 



CARD STMX = MAXLOC-20 



COMPUTE MAXIMUM WORKING 
SPACE AVAILABLE (STASG1). 



COMPUTE MAXIMUM LENGTH 
OF ABBREVIATED ACT. RECORD. 

MAXLAAR-^4^- 



SET UP ABBREVIATED ACT. 
OFFSETS 
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SEGMENT 1 CONTROL 



$SG2LOAD 




SSEG1CON 



(SSEG2CON) 



TO SCAP2 TO REQUEST I/O 
DEVICE SELECT CODE. 



TO SEG1SU TO SET UP 
SEGMENT 1. 





POSITION TAPE 2 AFTER 1ST RECORD 
(SEGMENT 2). 






" 






S 
U 
B 
R 


TO FRSTRUN TO REQUEST 
IF THIS IS FIRST PROGRESS 
RUN. 


no 










yes 




s 
u 

B 
R 


TO SG2LOAD TO LOAD 
SEGMENT 2. 




S 
U 
B 
R 


TO INTAPE TO PREPARE 
INITIAL PEP TAPE FROM 
DSRP OUTPUT TAPE. 




i 


, 




' 










' 










S 

U 
B 
R 


TO PAHSR FOR PARAMETER 
AND HOLIDAY SETUP. 




POSITION TAPE 2 TO BRING IN 
SEGMENT 2. 






- 


L 




" 




S 

u 

B 
R 


TO TOPSEQ TO PERFORM 
TOPOLOGICAL SORT. 




S 
U 
B 
R 


TO INABBF TO SET UP INITIAL 
ABBREVIATED ACT. FILE. 






! 




' 


' 








S 
U 
B 

R 


TO NETCHN FOR NETWORK 










CHANGES. 
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INITIAL INPUT TAPE PREPARATION SUBROUTINE 



JINTAPE 



SKIP 1ST FOUR AND READ 
5TH RECORD FROM TAPE 1 
(DSP OUTPUT TAPE) 



REWIND TAPE 1 




TRESS^ 
START 



IS 3RD WORD (IA2) = 'UNIT*? 



y« 



> 



READ 1 ST RECORD OF 
PARAMETERS INTO INPUT 
AREA (STARTING AT IA0) 



CLEAR PARAMETER REGION 
AND SET 1 CODE 



MOVE FOLLOWING PARAMETERS 
FROM INPUT AREA TO PARAMETER 

• UNITS 

• START DAY, MONTH, YEAR 

• NUMBER OF WORK DAYS 

• NON-WORK DAYS 



SKIP NEXT RECORD FROM 
TAPE 2 



INDEX1 = NNWHEP 



INDEX 2 = -22 



ERROR 
200 



f INCREMENT INDEX 2 ^ 

— ( BY 1 AND CHECK FOR } 

\^ NOT NEG. J 



c 



CHECK FOR INDEX1 
NOT NEG. 



INCREMENT INDEXI BY 3 




STORE HOL. DAY, MONTH 
AND YEAR IN PARAMETER 
REGION ON INDEXI. 



TRANSFER TO DATBRK FOR 
3-WORD HOL. 



J** ( PICK UP NEXT HOL- ON ^\ 
^INDEX2, IS HOL. BLANK?/ 



c 



CHECK FOR EJEC 
IN IA0 



T CODE y_ 



READ HOLIDAY RECORD 
INTO IA0. 



WRITE PARAMETERS ON 
TAPE 2 IN BCD. 



TRANSFER TO REQSCH 
TO REQUEST SELECTED 
SCHEDULE END DATE 
OR NUMBER. 
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INITIAL INPUT TAPE PREPARATION (Cont. ) 



C 



f tape^ 



REQUESTED SCHEDULE FOUND 



\ C^ 



SCHEDULE END DATE 
OR NUMBER REQUESTED? 



J 



iN UMBER 



TRANSFER TO DATBRK FOR 
3 PARTS OF CURRENT 
SCHEDULE END DATE. 



c 



DO CURRENT END DATE OR 

NUMBER MATCH REQUESTED 

END DATE OR NUMBER? 



NO MATCH 



TRANSFER TO RDBCDR FOR 
NEXT RECORD FROM TAPE 1. 



CHECK ENDFILE INDICATOR. 



TEST FOR WORD COST IN IA22 




TRANSFER TO RDBCDR FOR I SI 
RECORD OF NEXT SCHEDULE. 



CHECK ENDFILE INDICATOR 



(cH 



EJECT 
CODE 



ECK FOR EJECT CODE IN IA0 



EJECT 
CODE 
FOUND 




SCHFOUND 



SKIP NEXT 2 RECORDS FROM TAPE 1 



BLANK OUTPUT AREA 



READ 1ST LINE OF ACT. DATA 
FROM TAPE 1 



K£ 



CHECK EJECT COD 



<2 



P 



CHECK COST WORD 



^> 



X es /INTAPI 




SET UP ACTIVITY CODE 2 
IN OUTPUT AREA 



CONVERT THE FOLLOWING 
PARAMETERS TO NEW ACT. 
TAPE FORMAT AND STORE 
IN OUTPUT AREA: 

• IBCD, JBCD, IJDUP 

• SCHDUR 

• SCHSDAY, SCHSMON, SCHSYER 

• SCHFDAY, SCHFMON, SCHFYER 

• MAJAIN 

• COST 

• SET PERCENT COMPLETE - 



READ 2ND LINE OF ACT. 
DATA FROM TAPE 1. 



TRANSFER TO ACTOUT2 TO 
WRITE ACT. RECORD ON 
TAPE 2. 



MOVE COST CODE, RESP. CODE, 
AND ACT. DESCRIPTION INTO 
OUTPUT AREA. 
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INITIAL INPUT TAPE PREPARATION (Cont. ) 



[INTAPE] 

w 




(RETURN) 







' 


SCHDONE 








i 












s 

u 

B 
R 


TRANSFER TO ACTOUT2 TO 
WRITE 9 CODE RECORD ON 
TAPE 2. 




SKIP FORWARD 1 BINARY RECORD 
ON TAPE 2. 








i 








' 














S 

u 

B 
R 


TRANSFER TO SAVET1 IO 
REQUEST SAVE TAPE 1, 
HLT AND CONTINUE 




REWIND TAPES 1 AND 2. 








,, 






< 














S 

u 

B 
R 


TRANSFER TO SETT1 FOR TAPE 1 
SETUP AND TAPE 2 REWIND 




WRITE 9 CODE RECORD ON TAPE 1. 








- 


, 






' 


' 






9 CODE 




NOT 9 CODE 






DELAY TAPE 2. 


< 


^ 9 CODE CHECK J 










' 








' 








k 




SKIP FORWARD 1 RECORD BINARY. 










1 


< 










DELAY TAPE 2. 


















' 












S 

U 
B 
R 


TRANSFER TO ACTOUT1 TO 
WRITE ACT. RECORD ON 
TAPE 1. 




' 




READ ACT. RECORD FROM TAPE 2 




READ PARAMETER FILE FROM 2. 








L 








' 














DELAY TAPE 1. 












i 


























/YKIIfc 
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INITIAL ABBREVIATED ACTIVITY FILE SUBROUTINE 



SINABBF 



READ ACT. RECORD 
FROM TAPE 1 



(CHECK FOR9CODE^ 



NA= CURACT-1 



INDEX = CURACT 



MOVE I, J, AND IJDUP 
(4TH CHARACTER) INTO 
ABBREVIATED ACT. RECORD. 



INCREMENT CURACT BY 1 




NETWORK CHANGE ROUTINE 



SNETCHN 



READ PAPER TAPE RECORD INTO IA1. 



STORE I, J, DUP IN ABBREVIATED 
ACT. RECORD ON CURACT. 



INCREASE NA BY 1. 



INCREASE CURACT BY 1. 



1 



PAPER TAPE/ ^ CHECK BRANCHB3 FOR CARDS \ 1 CARDS 
OR PAPER TAPE. 



y 



c 



CARD TAPE CODE 



yes 
NETWORK 
CHANGE CARD 



D? V 1 



NON- 
NETWORK CARD 



BREAK UP INPUT I'S, J'S, DUP'S. 



(CHECK NETWORK^ D- 
CHANGE TYPE. J 



READ CARD INTO IA1. 



REWIND TAPE 1 AND SKIP 
PARAMETER RECORD. 



SEARCH I, J, DUP MATCH FOR 
KM AT. 



STORE NEW I, J, DUP ON KMAT. 

SET CHANGE FLAG ON. 



SET NEXT ABBREVIATED 
ACT. RECORD TO ZERO. 



__ # /netchn\ 



SEARCH I, J, DUP MATCH FOR 
KMAT. 



SET I -- e» 

SET DELETE FLAG ON. 



DECREASE NA BY 
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NETWORK CHANGE (Cont.) 



(NETCHNJ 



READ ACT. RECORD 
INTO OUTAREA. 



< 



9 CODE CHECK 



>T 



DO I, J, DUP OF ACT. 

IN OUTAREA MATCH 

I, J, DUP IN ABBREVIATED 

ACT. RECORD? 




c 



BLANK OUTAREA, 

MOVE I, J, DUP ON CURACT. 
SET K = CURACT. 



C 



CHECK FOR ZERO I ON CURACT. 



IS THIS 1 
PROGRESS RUN 



[UN?/ 



WRITE NEW ACT. 
ON TAPE Z. 



CURACT = CURACT+1 



MOVE 9 CODE AND 
BLANK OUTAREA. 



WRITE 9 CODE 
RECORD ON TAPE. 



TYPE: 

CHANGE TAPE 1 
COMMENT. 
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PAR AMETER AND HOLIDAY SUBROUTINE (PEP only) 
SPAHSR 



BLANK USER'S 
COMMENT REGIONS. 



MAG. TAPE READ 

READ PARAMETER FILE IN- 
TO PARAMETER REGION. 



INITIALIZE INSTRUCTION FOR 
STORAGE OF 1ST 3-PART 
HOLIDAY. 





SET UP PAST-FUTURE ACT. 
PRINT INDICATOR. 



SET UP MAJOR ACT. ONLY 
PRINT INDICATOR. 



SET UP RUN ID IN RUN1D 
AND RUNIDP1. 



SET UP EFFECTIVE DATE: 

EFFDAY 

EFFMON 

EFFYER 



_I _ /* TEST FOR ANY N no 

'RESS , I HOLiDAY CHANGES J 

TART/ X. _ S 



/ARE THERE FEWER HOLIDAYS^ "° 
I THAN ORIGINALLY? J 



NOTE FEWER HOLIDAYS 
COMMENT TO USER 110 



CLEAR REMAINING HOLIDAYS. 



TRANSFER TO HOLIDAY 
SEQUENCE SUBROUTINE. 



WRITE PARAMETER FILE ON 
TAPE 2. 



(return) 
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TOPOLOGICAL SEQUENCING CONTROL PROGRAM 



UNSORTED ACTIVITY NUMBER ASSIGNMENT SUBROUTINE 



$TOPSEQ 



$SCAP1 3P7 





' 




SET UP ABBREVIATED ACT. RECORD 
ADDRESSES. 


' 




COMPUTE NUMBER OF RECORDS IN 
INPUT STRING: 
o-rn,..^ SPACE AVAILABLE 
STRING (2+N0 . WDS/REC.) 
ROUND DOWN. 


' 




SET UP ADDRESSES FOR SELECT 
VECTOR, SEQUENCE VECTOR AND 
THREDIN VECTOR. 


< 


(F16) 


S 
U 
B 
R 


TO SCAP13P7 TO STORE UNSORTED 
ACT. NUMBER IN ABBREVIATED ACT. 
RECORD. 


' 


(F17) 


S 
U 
B 
R 


TO SCAP13P8 TO SORT ABBREVIATED 
ACT. RECORD ON 1, J, D. 




(FI8) 


S 

u 

B 

R 


TO SCAP14 FOR TOPOLOGICAL 
THREAD CREATION. 




(F19) 


S 

u 

B 

R 


TO SCAP18 FOR ASSIGNMENT OF 
M AND N INTERNAL NODE 
NUMBERS 




r (F20) 


S 

u 

B 
R 


TO SCAP20 TO PERFORM MAG. 
TAPE TOPOLOGICAL SORT. 




SET INDEX A FOR 1ST 
ABBREVIATED ACT. RECORD. 



INITIALIZE UNSORTED ACT. 
NUMBER = 0. 



INCREASE UNSORTED ACT. 
NUMBER BY 1. 



STORE UNSORTED ACT. NUMBER 
IN LEFT 12 BITS OF 1 ST WORD OF 
ABBREVIATED ACT. RECORD A. 
(RIGHT 12 BITS UNCHANGED.) 



o/LAST ABBREVIATED^ 
"" ^ACT. P ROCESSED ij 
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TOPOLOGICAL SORT SUBROUTINE 



$SCAP14 



NXTRM 



SET INDEX X = 1 



SET SUCCEEDING ACT. 
NUMBER OF ACT. X = X+l 



SET END OF ABBREVIATED 
ACT. RECORD FLAGS: 
l„ = 37777777 



INITIALIZE LOOP DETECTION 
COUNTER- 




SET ACT. NUMBER C= F 

(THREAD EXAMINATION NUMBER) 
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TOPOLOGICAL SORT (Cont. ] 




<G 



2^/ LOOP TYPE- 
COUNTER 



ERROR 206 TYPE-OUT AND HALT 



FST1 



B = B-l 


' 


' 


< 


J = 1 "> 
C V 


) 


no 

1 


' 


B = B+l 




PRESS 
k STARTy 



e-outA 



ERROR 205 TYPE-OUT AND CONTINUE. 




fTOPSORT\ 



c 



SET LOOP TYPE-OUT COUNTER = 20 



TEST TERMINAL THREAD F 
STORED IN SIGN BIT OF 



•c 



LAG "\j 



DO NOT USE 
ACTIVITY B 



Y e5 ( SANo/ 0? (IS ACT. B ALREADY 
IN CURRENT THREAD?) 



3 



a - b? \i^- 

(IS ACT. B ALREADY LAST ITEM 
IN CURRENT THREAD?) 



SAN A = B 

(PUT ACT. B AT END OF THREAD) 



A= B 

C = SAN, 




SET THREAD CLOSE-UP 
INDEX (D)- START OF 
CURRENT THREAD INDEX (F). 



SAN D = SAN E 

(CLOSE THREAD TO 
SKIP ALL ACTIVITIES 
WITH 1= I OF THE 
ACTIVITY TO BE 
MOVED TO END OF 
THREAD) 



REDUCE LOOP TYPE-OUT 
COUNTER BY 1 



RECOGNIZE ON TYPE-OUT 
AS BEING REACHED TWICE 
IN THREAD. 



MOVE ALL 3 WORDS OF 
ABBREVIATED ACT. RECORD E 
TO ERROR TYPE-OUT AREA. 



LPER 



SET LOOP TYPE-OUT 
COUNTER = 20 



(LOOP IN 
NETWOR 



•4 a 

V NUMB 



"J 
K) 
res | 



OOP D CTcrT "~* Kt 



COUNTER > TOTAL 
BEROF ACTIVITIES? 



INCREASE LOOP DETECTION COUNTER 
BY 1 . 
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M AND N ASSIGNMENT SUBROUTINE 



JSCAP18 



INITIALIZE NODE NUMBER 
ACCUMULATOR (X)= 2 



INITIALIZE A INDEX = NUMBER OF 
1 ST ACTIVITY IN TOPOLOGICAL 
SEQUENCE. 



SET FOUND J INDICATOR = -1 
FOR NO J= CURRENT I 



SET Q INDEX (NUMBER OF 1ST 
ACTIVITY WITH CURRENT I) = A 



STORE X IN LEFT 12 BITS OF I, 



C 



y 



SET P INDEX (POSITION 
IN THREAD) = A. 



STORE X IN RIGHT 12 BITS OF l e . 



yes 
(END NODE) 



LKNGJ 



J r NEGATIVE? 



(TERMINAL THREAD FLAG 
STILL ON FROM SCAP14?) 



SET E INDEX (FOR SEARCH 
FOR END NODES) = 1 



nof A=0? N 

\(END OF THREAD?]/ 



A= SAN p (SUCCEEDING ACT. 

NUMBER OF CURRENT ITEM 
IN THREAD). 



FNDEQJ 



SET D INDEX (FOR SEARCH 
FOR J = I) = 1. 



(W> 



STORE X IN RIGHT 12 BITS 

OF I (LEFT 12 BITS UNCHANGED) 



INCREASE FOUND J INDICATOR BY 1 . 



E = E+l 



c 



THROUGH ALL \ >"" 

NON-REMOVE ACTIVITIES 



OL \) 

CTIVITIESy 



Q = Q+l 



<E) 



STORE 1 IN LEFT 12 BITS 
OF l Q (STARTING NODE 

NUMBER). 



■C 



(THRUJ) 



ye. (FOUND)/ ' | S FOUND 
INDICATOR 



v 



D 



THROUGH ALL 
NON-REMOVE ACTIVITIES? 



D 



D = D+l 
~~ I 



fMN\ 
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M AND N ASSIGNMENT (Cont.) 




SET F INDEX = 1 (FOR MOVE 
TO J AREA). 



SET G INDEX = ACT. H 
(NUMBER OF 1ST ACTIVITY 
IN THREAD) FOR MOVE 
FROM I AREA. 



FROM I AREA TO J AREA). 



F = F+l 



NUMBER OF ACTIVITY 
SUCCEEDING ACTIVITY G 
(SANG). 



(G=0? *\ 

(END OF THREAD)^ 



MOVE MNI 



SET L INDEX = 1 FOR MOVE 
FROM J AREA BACK TO I AREA. 



MOVE MN L FROM J AREA 
BACK TO I AREA IN 
TOPOLOGICAL SEQUENCE 



io f L= LIMIT? \ 

WALL MN MOVED?)/ 
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TAPE SORT SUBROUTINE 



JSCAP20 



SET 1ST K OF CURRENT 
SET OF INPUT (LPK)=1. 



SET TOPOLOGICAL SEQUENCE 
ACT. NUMBER, (K) = 1 . 



c 




C= LIMIT? 
(SEQUENCED AREA FULL) 



> 



C = C+l 

— X — 



SET NEXT ACT. NUMBER (AA) 
>= ORIGINAL ACT. NUMBER OF 
ORIGIN OF TOPOLOGICAL 
THREAD. 



PREVENTS BEING SELECTED 
AGAIN AS SMALLEST ACT. 
NUMBER 



DELAY TILL TAPE 2 READY. 



REWIND TAPE 2. 



OAN, 



MOVESEQ 



OAN, 



C CSX 

TAN C =TAN CSX 

(MOVE SMALLEST ACT. NUMBER 
TO SEQUENCED AREA.) 




fTSORT 1 



yes 



SET SELECTED ACT. STORAGE 
INDEX, (B) = 1 FOR MOVE TO 
SELECTED AREA. 



c 



B = LIMIT? 

(EXAMINED ENTIRE 

SELECTED AREA) 



AA= 0? 
(END OF TOP. THREAD) 



WORD B = 37777777 
AND B=B+1 



K£ 



CSA = OANg 

(NEW SMALLEST ACT. NUMBER. ) 



SELECTED AREA FULL 



SET LEFT 12 BITS OF WORD B 
= UNSORTED ACT. NUMBER 
OF ACT. AA, (UAN AA ). 



SET RIGHT 12 BITS OF WORD B 

= K (TOPOLOGICALLY SEQUENCED 

ACT. NUMBER, (TAN)). 



SET AA = SUCCEEDING ACT. 
NUMBER OF ACT. AA, (SAN. J. 



K+l 
B+l 



B= LIMIT? 

(SELECTED ACT. 

STORAGE AREA FILLED?) 



3 



SET CURRENT SMALLEST 
ACT. INDEX, CSX= B. 



(NEW SMALLEST f 
FOUND) 



c 



OAN„ > CSA? 



J 



SET CURRENT SMALLEST ACT. 
NUMBER (CSA) = 37777777.. 



NXSQ 



SET SELECTED ACT. STORAGE INDEX B 
= 1 FOR MOVE FROM SEQUENCED 
AREA TO SELECTED AREA. 



SQSLAC 



SET SEQUENCED ACT. STORAGE 
INDEX C= 1 FOR MOVE TO 
SEQUENCED AREA. 
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TAPE SORT (Cont.) 




INCREASE 1ST LOCATION OF 
TAPE BY NUMBER OF 
WORDS/RECORD 



SKIP PAST PROGRAM SEGMENT 
RECORDS ON TAPE 2. 



WRITE ACT. RECORD ON TAPE 1 
(NOW SEQUENCED TOPOLOGICALLY). 



SKIP PARAMETERS - TAPE 2 
(PEP ONLY) 



SET SEQUENCED ACT. 
STORAGE INDEXC = 1. 



INITIALIZE 1ST LOCATION FROM 
WHICH TO WRITE RECORD = 
ORIGIN OF TAPE RECORD AREA. 



SET NUMBER OF RECORDS 
READ COUNTER, (BB> = 0. 



c 



INITIATE UNIT 2 REWIND (INPUT). 



ACT. NUMBER TAN = 
(END FLAG?) 



J 



DELAY TILL UNIT 2 READY. 



CALCULATE 1ST LOCATION D FOR 
INPUT OF ACT. RECORD C FROM 
TAPE = (TOP-LPK)x (WD/REC) 
+ ORIGIN OF TAPE INPUT AREA 



£ 



no ( C = LIMIT (END OF 
SEQUENCED AREA) 



J 



SET UP INSTRUCTIONS FOR TESTS 
OF TAPE RECORD NUMBERS FROM 
INPUT. 



CONVERT ORIGINAL ACT. 
NUMBER OAN c TO BCD AND 
SAVE FOR COMPARISON. 



CONVERT M AN' N OAN, K OAN 
TO BCD AND STORE IN CURRENT 
TAPE RECORD. 



READ NEXT ACT. RECORD FROM 
TAPE UNIT 2 STARTING AT 
LOCATION D IN TOPOLOGICAL 
TAPE INPUT AREA. 



no f 



BB = 0? 
(ALL RECORDS WRITTEN) 



(3 



) 



TOTAL NUMBER OF 
ACTIVITIES (NA)? 



y 



LPK (LAST K OF PREVIOUS SET OF 
INPUT) = LPK + MAX. NUMBER OF 
RECORDS THAT CAN BE IN ONE 
SORTED STRING. 




MOVE END ACT. RECORD TYPE 
CODE (6000) TO 1ST WORD OF 
ACT. RECORD AREA. 



WRITE END ACT. RECORD ON 
TAPE 1. 



BUFFER READY DELAY. 



ERASE 600 WORDS ON TAPE 1 
(ALLOWS RE-READ AND CONTINUE 

WRITE). 



SET UP LOCATIONS OF M, N, 
AND K IN CURRENT TAPE RECORD. 



RECORD NUMBER OAN c 
RECORD NUMBER FROM TAPE? 



D 



■C 



RECORD NUMBER OAN c =-- 
RECORD NUMBER FROM TAPE' 




J> 



REWIND TAPE 1. 




SKIP PARAMETERS ON TAPE 2 
fPEP ONLYi. 



REWIND TAPE 2 AND SKIP 
PROGRAM SEGMENTS. 
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SCHEDULE REQUEST SUBROUTINE 



SREQSCH 
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DATE COMPARISON SUBROUTINE 



SEGMENT 1 DATA ROUTINE 



SDATCOM 



$SEG2ENT 



THIS ROUTINE COMPARES A DATE STORED IN 
DUR1, DUR2, AND DUR3 WITH A CHECK DATE 
STORED IN CKDUR1, CKDUR2, CKDUR3. 

IF THE DATE IN THE DUR LOCATIONS OCCURS 
AFTER THE DATE IN THE CKDUR REGION, THE 
ROUTINE FORWARDS TO ENTRY+2; OTHERWISE, 
IT FORWARDS TO ENTRY+1. 




BRANCH TO 
SSEG1CON 



NOTE: THIS ROUTINE CONTAINS THE TRANSFER ADDRESS FOR ENTERING 
THE PROGRESS EVALUATION PROGRAM. IT IS ENTERED BY THE 
UNIVERSAL LOADER. 

ALSO CONTAINED IN THIS ROUTINE ARE EQUIVALENCE INSTRUC- 
TIONS DEFINING THE ARRANGEMENT OF THE PARAMETER REGION 
DURING SEGMENT!. 



UTILITY PACKAGE 





SACTOUT2 

i 


s 

U 
B 
R 


MTWSR 

WRITE ACTIVITY STATUS RECORD 
ON TAPE 2 (BCD) FROM OUTPUT 
AREA. 




SDATBRK 





1 


ENTERS WITH DATE IN COMPACT 
FORM IN A AND B REGISTERS 




DDMM MMYY 
A REG B REG 


BREAKS DATE UP AS FOLLOWS: 
BBDD IN DUR1 AND A REGISTER. 
BMMM IN DUR2 AND B REGISTER. 
BBYY IN DUR3. 




SBUILDL 



MERGE RIGHTMOST 11 BITS OF 
A REGISTER INTO BITS 1-11 OF 
B REGISTER. 

MOVE 8 REGISTER TO A REGISTER. 






SACTOUT1 

1 


s 

u 

B 
R 


MTWSR 

WRITE ACTIVITY STATUS RECORD 
ON TAPE 1 (BCD) FROM OUTPUT 
AREA 



SSAVET1 



TYPE MESSAGE: REPLACE TAPE 1 
IF TAPE SAVE REQUIRED. 




SBC DC ON 




CONVERT BCD 4-DIGIT NUMBER IN 

A REGISTER TO BINARY. 
PLACE RESULT IN A REGISTER. 




SSETT1 





REWIND TAPES 1 AND 2 






" 




ERASE ISO WORDS ON TAPE 1. 



REMOVE BIT ZERO OF A REG. 




SBUILDL1 



BREAK WORD IN A REGISTER INTO 

2 PARTS: 
BITS 0-11 TO A REGISTER {RIGHT 

JUSTIFY) 
BITS 12-23 TO B REGISTER (RIGHT 

JUSTIFY) 



ST1 DLAY 




MERGE RIGHTMOST 12 BITS OF 
A REGISTER INTO BITS 0-11 OF 
B REGISTER. 

MOVE B REGISTER TO A REGISTER. 




DELAY TILL BUFFER W AND TAPE 1 
READY. 




DELAY TILL BUFFER W AND TAPE 2 
READY 
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BLANKS TO ZERO SUBROUTINE 



SEGMENT 2 CONTROL 



BINARY TO DECIMAL INTEGER CONVERSION SUBROUTINE 



BLTOZ 



SSEG2CON 



JDECSCSR 



CHANGE ALL BLANK CHARACTERS 
IN A REGISTER TO ZERO. 



(RETURN! 




READ BCD RECORD SUBROUTINE 



READ 1 BCD OUTPUT RECORD 
WITHOUT CHECKSUM INTO 
INPUT AREA. 




SEGMENT 2 TAPE PREP. 



TO MTSETUP TO PREPARE 
TAPE 2 FOR WRITE AND 
TO REWIND TAPE I. 




S 

u 

B 
R 


TO ACTCHN TO CHANGE 
ACTIVITY DATA. 


" 


S 

u 

B 
R 


TO SEG2SU TO SET UP 
SEGMENT 2. 


' 




S 

u 

B 
R 


POSITION TAPE 1 AT 
BEGINNING OF ACTIVITY 
FILE. 


i 




S 

u 

B 
R 


TO FRPERT FOR ESTIMATED 
EARLY STARTS. 


" 


S 

u 

B 
R 


TO RVPERT FOR ESTIMATED 
LATE FINISHES. 


" 


S 

u 

B 
R 


POSITION TAPES I AND 2 
AT BEGINNING OF ACT. 

FILE. 


1 


' 


S 

u 

B 
R 


TO SEVAL TO EVALUATE 
SCHEDULE STATUS. 


1 


1 


S 

u 

B 

R 


TO SETT1 TO REWIND TAPE 2 
AND TO PREPARE TAPE 1 FOR 
WRITE. 




' 


S 

u 

B 

R 


TO PRINCO TO PRINT 
SCHEDULE EVALUATION 
REPORT. 




' 


S 

u 

B 
R 


TO ENDSRP END OF PROGRAM 



ENTRY WITH BINARY NUMBER AT A BINARY 
MAGNITUDE OF 23. 

NUMBER MUST BE POSITIVE AND LESS 
THAN 999999. 

EXITS WITH A 6-BCD CHARACTER NUMBER. 

FIRST 2 DIGITS ARE IN POSITIONS 3 AND 4 
OF B REGISTER, AND LAST 4 CHARACTERS 
ARE IN A REGISTER. 




ERASE SUBROUTINE 
$ERASE 1 



ERASE 150 WORDS ON TAPE I 
STARTING AT CURRENT TAPE 
POSITION. 



SERASE 2 



ERASE 150 WORDS ON TAPE 2 
STARTING AT CURRENT TAPE 
POSITION. 



I 

(RETURN! 
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ACTIVITY CHANGE ROUTINE 



SACTCHN 




fACTCI 



TO MTSETUP FOR REWIND I AND 
2 AND PREPARE 2 FOR WRITE. 



FIRSTR = -1 
PASS ■= -1 


'r 


CHNDONE = 
UNITALT = -1 



^unimltV- 



SETUP INPUT TAPE READ 

OUTPUT TAPE WRITE 
INPUT TAPE DELAY 
OUTPUT TAPE DELAY 

INSTRUCTIONS ON INDEX 



TO SETTI FOR REWIND I AND 2 
AND PREPARE 1 FOR WRITE. 



INDEX = -I 



READ PARAMETERS FROM IN TAPE 
AND WRITE ON OUT TAPE. 



MOVE CARD TO CARDST AREA. 



CARDST = CARDSTI 



CARDST = CARDST+20 



c 



CARDST >CARDSTMX? 



■<. 



y 



j 



C~ BRANCH B3 J$ 



READ CARDS 



< 




CHNDONE = -1 



READ PAPER TAPE 



CHECK FOR G TYPE CARD 



y 
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ACTIVITY CHANGE (Cont. ) 




BLANK I LOCATIONS OF 
LAST CARD STORE + 1 



(returnV- 




ACCOUNT= 



READ NEXT ACTIVITY RECORD 
FROM IN TAPE INTO OUTAREA. 



C 



9 CODE TEST 



K. 



3 



2 CODE TEST 



J 



INCREASE ACCOUNT BY 1 



TRANSFER TO POST TO POST 
ACTIVITY CHANGES IN OUT 

AREA. 



WRITE UPDATE ACTIVITY 
RECORD FROM OUTAREA 
ONTO OUT TAPE. 



< 



IS TAPE 1 CURRENT WRITE? 



COPY TAPE 2 ONTO 
TAPE1. 



TRANSFER TO SETT1. 
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POST CHANGE SUBROUTINE 



SPOST 

_i_ 



CARDSR = CARDST1 



MOVE ACTUAL FINISH TO OUT AREA. 

I 



I 



TYPE COMMENT: ACTUAL FINISH 
> EFFECTIVE DATE 



f FIRSTR = -1 ? "\ 



K 



IS ACTIVITY PREVIOUSLY ^ Y 
FINISHED? 




OAR45 = Y 



NEXT 

CARD 



(IS I OF CURRENT 
CARDSR BLANK? 




DO I, J, DUP OF CURRENT ACT. 
MATCH CURRENT CARDSR? 



J> 



A 

ERROR f 
'209' [< 



PRESS ^ 
START 



V N 

-(CHECK CARD TYPE > 



-flS MAJOR BLANK?') 



MOVE MAJOR TO OAR59. 



'■a 



S SCHEDULE START BLAN 



K?\ 



BREAK UP SCHEDULE START DATE 
AND MOVE TO OUTAREA. 



KIS ACTUAL FINISH DATE "N 
> EFFECTIVE DATE? J 



MOVE ACTUAL START DATE TO 
OUTAREA. 



TYPE COMMENT: ACTUAL START : 
EFFECTIVE DATE. 



1 



yes / IS ACTUAL START 

•EFFECTIVE DATE? 




MOVE ACTIVITY DESCRIPTION 
TO OUTAREA. 



SET 1ST CHARACTER OF NUMBER 
SLIPS TO S. 



(IS NEW SCHEDULE FINISH \n£ 
>OLD SCHEDULE FINISH?^/ 



MOVE NEW SCHEDULE FINISH TC 
ORG. SCHEDULE FINISH. 



< 



S OLD SCHEDULE FINISH BLANK' 



j> 



(^y— : 



MOVE RESPONSIBLE CODE TO 
OUTAREA. 



C 



IS RESPONSIBLE CODE BLANK? 



-V«J 



MOVE COST CODE TO OUTAREA. 



■c 



IS COST CODE BLANK? 



/7s ACTUAL FINISHy" 
V^ DATE BLANK? _J 



< 



IS ACTUAL START DATE BLANK? 



J 



MOVE SCHD DURATION TO OUTAREA. 



IS SCHEDULE DURATION BLANK? 



MOVE NEW SCHEDULE FINISH TO 
OUTAREA. 



< 



IS SCHEDULE FINISH BLANK? 
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POST CHANGE (Cont.) 






( CHND 


^\/ " 
















" LAST PASS 






on r FP1 


ON?") 




FIRS 


I proORFSS pi im V. ' " 




OFF 




( IS 1STCHARA 


\ yes 








CTER NSLIP S? ) 


' 






no 


' 






yes r IS ORG. F 


NISH DATE "\ 
NK? J 


REMOVE S AND INCREASE 
NSLIP BY I. 




" 


\^ BLA 


MOVE CURRENT SCHEDULE 
FINISH DATE TO ORIGINAL 
SCHEDULE FINISH DATE. 










' 


1 


) 


SET NUMBER OF SCHEDULE 
SLIPS = (NSLIP). 












„ 









c 




IS COST BLANK? 



"Nyes 



MOVE COST TO OUTPUT AREA. 



±— (is 



S PERCENT COMPLETE BLAN 



K^- 



o 



MOVE PERCENT COMPLETE 
TO OUTPUT AREA. 
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SEGMENT 2 SETUP ROUTINE 



FORWARD PERT SUBROUTINE 



SSEG2SU 





~ 






READ PARAMETERS 
FROM TAPE 1. 




1 








SET UP START DATE. 






1 


t 






SET UP UNIT TYPE. 






' 


' 






SET UP WORK 
HOURS/DAY. 






' 


' 






COMPUTE DAY-OFF 
VECTOR 






y 


' 




COMPUTE NUMBER 
WORK DAYS. WEEK. 






1 


' 


COMPUTE VECTOR OFFSETS 
AND SET UP WITH TAGS. 




CLEAR MN, DURTAS, AND TIME 
VECTORS. 



TRANSFER TO MTRSR TO READ IN 
NEXT ACTIVITY STATUS RECORD. 



TN = TN' 

T 




SHIFT FOR LATEST FINISH 


TIME 




MOVE CURRENT NODE TIME INTO 
TM ON M. 


(TPSF). 














' 


' 





^-TsCHDUR = COMP?V^ 



TRANSFER TO DATBBU FOR SCHEDULE 
START (TSS) AND SCHEDULE FINISH 
(TSF) IN BASIC UNITS. 



DUR - TSF-TSS 



a 



CONVERT SCHDUR TO BINARY 
AND STORE IN DUR. 



*MN = -0 ON K. 

TN' = TM. 



"< 



¥ 



HAS ACTIVITY STARTE 



dTJ 



STORE DUR IN DURTAS VECTOR 
WITH 1 BIT IN POSITION ZERO, 
CN K. 



TRANSFER TO DATBBU FOR ACTUAL 
START IN BASIC UNITS (TASJ - 
ALSO, STORE TAS IN DURTAS, ON K. 



Jn 



TN 1 = TM+DUR 



TN' = TAC+DUR 



< 



HAS ACTIVITY FINISHED' 



-Wf 



TN' =- TAS+DUR 



< 



TRANSFER TO DATBBU FOR ACTUAL 
FINISH IN BASIC UNITS (TAF) 



D 
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[returnV 






REMOVE BIT 1 
TM' = TN-DURTAS 



REVERSE PERT SUBROUTINE 
JRVPERT 



SET LEFT HALF OF TIME 
VECTOR TO 07777. 



STORE SCHEDULED FINISH 
TIME IN T^ T £ (TPSF). 



K = NA 



f K = 0? ") 



PICK UP AND BREAK UP 
M AND N ON K. 



PICK UP AND BREAK UP 
TM ONM AND TN ON 
N FROM LEFT SIDE OF 
THE VECTOR. 



PICK UP DURTAS VECTOR 
ENTRY ON K. 



^ DURTAS J- 



Qm >TM'?t^ 



V - 


TM' = 


DURTAS 


y ACT. STARTED' 









CONVERT SCHDUR TO BINARY 
AND STORE IN DUR. 



STATUS EVALUATION SUBROUTINE 



$SEVAL 




MTRSR 

READ NEXT ACTIVITY STATUS 
RECORD FROM TAPE 1 
STARTING AT IA0. 




CONVERT SCHEDULE START 
DATE TO BASIC UNITS AND 
STORE IN TSS. 



CONVERT SCHEDULE FINISH 
DATE TO BASIC UNITS AND 
STORE IN TSF. 



TSF TPSF? 

FIND LATEST SCHEDULE FINISH 

IN PROJECT. 



no f 
-Hi 



SCHDUR = 'COMP'? 




DUR = TSF-TSS 

CONVERT DUR TO BCD AND 
STORE IN SCHDUR. 
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STATUS EVALUATION (Cont. ) 




s 


DATBBU 


u 

B 
R 


CONVERT ORIGINAL SCHEDULE 
FINISH DATE TO BASIC UNITS 
AND STORE IN TORG. 




' 


' 






TSLP = TSLCAL-TORG 






1 


' 






CONVERT TOTAL SLIP AND 
TOTAL SLIP SIGN TO BCD. 






' 


' 






CONVERT PREDICTED AND 
ACTUAL STATUS WORDS AND 
SIGNS TO BCD. 






1 


' 




S 
U 
B 
R 


MTWSR 

WRITE UPDATED ACTIVITY 
STATUS RECORD ON TAPE 2. 





CONVERT EARLY START TIME 
(TMR) TO DATE. 



COMPUTE LATE START TIME: 
TLS = TNL-DUR 



CONVERT LATE START TIME 
TO DATE. 




MOVE BCD WORD FINISHED INTO 
EARLY FINISH SLOTS. 



LATFDY = ACTFDAY 
LATFMY = ACTFMON 
LATFYR = ACTFYER 



CONVERT ACTUAL FINISH DATE 
TO BASIC UNITS AND STORE IN 
TAF. 



TSLCAL = TSF 



DA = TAF- TMR 
DIFA - DUR-DA 



CONVERT DA AND DIFA TO BCD 
AND STORE IN ACTDUR AND 
DIFFDUR. 



BLANK ESTIMATED TOTAL FLOAT. 



ACSTAT = TSF-TAF 



ZERO PREDICTED STATUS. 





CONVERT TOTAL PROJECT 
EXPECTED FINISH TIME (TNR NE ) 
TO DATE. 



DATBBU 

CONVERT TOTAL PROJECT 
SCHEDULED FINISH TIME 
(TPSF) TO DATE. 




STATUS WORD = BEHIND. 



CONVERT NEGATIVE PSTATUS 
SIGN TO BCD. 



STATUS WORD = AHEAD. 



CONVERT PLUS PSTATUS SIGN 
TO BCD. 
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STATUS EVALUATION (Cont ) 



MOVE BCD WORD STARTED 
INTO EARLY START SLOTS 



LATFDY = ACTFDAY 
LATFMN = ACTFMON 
LATFYR = ACTFYER 



DATBBU 

CONVERT ACTUAL START DATE 
TO BASIC UNITS AND STORE 
IN TMR. 



c 



HAS ACTIVITY FINISHED'; 




TO 
AFIN 




CONVERT M, N, AND K FROM 
BCD TO BINARY 



PICK UP TMR (POSSIBLE EARLY 
START TIME) FROM TIME 
VECTOR ON K. 



f TMR >TAC? J 



•<. 



HAS ACTIVITY STARTED? 



> 



COMPUTE PREDICTED STATUS: 
SCR = TSF-TEF 



c 



SHOULD ACTIVITY BE FINISHED? 



u SHDBE 



COMPUTE ACTUAL STATUS 
AC STAT = TSF-TAC 



TEF = TMR+DUR 



D 



COMPUTE EARLY FINISH TIME: 
TEF = TMR+DUR 



COMPUTE PREDICTED STATUS: 
SCR = TSF-TEF 



SHOULD ACTIVITY BE STARTED? 



J 



COMPUTE ACTUAL STATUS: 
ACSTAT --- TSS-TAC 



ZERO ACTUAL STATUS 



ZERO ACTUAL STATUS 




•/ TEF ^TAC? V 
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PRINT CONTROL ROUTINE 



SPRINCO 



TO PRINT INITIALIZATION 
ROUTINE (PEPINT) 



BRING IN NEXT ACTIVITY RECORD 
FROM TAPE 2 




CHECK RECORD CODE 



c 



y 




RECOK 



CHECK FOR MAJOR ACT. \ALL_ 
PRINT ONLY 



MAJOR 
ONLY 



> 



IS THIS A MAJOR ACT. ? 



C 



D 



SHOULD PAST ACT. BE PRINTED? 



< 



PAST AND 
FUTURE 



IS THIS A PAST ACT. ? 



J 



TO PVOUT TO PRINT ACTIVITY 
STATUS 



PRINT INITIALIZATION ROUTINE 



SPEPINT 



INITIALIZE LINE COUNTER AND 
PAGE COUNTER 
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PRINT EVALUATION SUBROUTINE 



SPVOUT 



C 



LINEC >23? 



yes 



> 



MOVE PROJECT STATUS HEADING 
INTO OUTAREA WITH EJECT CODE. 



SET UP EFFECTIVE DATE IN 
OUTAREA. 



SET UP RUN-ID IN OUTAREA. 



SET UP PROJECT SCHEDULE FINISH 
NOTE AND DATE. 



TO RLOUTSR TO PRINT 1ST LINE 
OF HEADING. 



INCREASE PAGE NUMBER. 



CLEAR LINE COUNTER. 



MOVE 1ST ROW OF USER'S 
COMMENTS TO OUTAREA. 



MOVE PROJECT ESTIMATED FINISH 
COMMENT AND DATE TO 
OUTAREA. 



SET UP UPSPACE 1 CODE IN 
OUTAREA. 



TO RLOUTSR TO PRINT 2ND LINE 
OF HEADING. 



MOVE 2ND ROW OF USER'S 
COMMENTS TO OUTAREA. 



SET UP I, J, DUP AT BOTH ENDS 
OF PRINTOUT. 



TO RLOUTSR TO PRINT 3RD LINE 
OF COLUMN HEADINGS. 



SET UP 3RD LINE OF COLUMN 
HEADINGS. 



TO RLOUTSR TO PRINT 2ND LINE 
OF COLUMN HEADINGS. 



SET UP 2ND LINE OF COLUMN 
HEADINGS WITH UPSPACE 1 CODE. 



TO RLOUTSR TO PRINT 1ST LINE 
OF COLUMN HEADINGS. 



SET UP 1ST LINE OF COLUMN 
HEADINGS WITH UPSPACE 3 CODE. 



TO RLOUTSR TO PRINT 3RD LINE 
OF HEADING. 



SET UP PROJECT STATUS 
COMMENT. 



SET UP SCHEDULED STATUS 
CRITERION. 



SET UP TOTAL ESTIMATED FLOAT. 



SET UP DURATION OUTPUTS. 



SET UP START AND FINISH 
COLUMNS. 



SET UP TOTAL SLIP AND NUMBER 
OF SLIPS. 



TO RLOUTSR TO OUTPUT LINE. 



SET UP UPSPACE 1 CODE. 



MOVE COST CODE, RESP. CODE, 
AND ACTIVITY DESCRIPTION 
INTO OUTAREA. 



TO RLOUTSR TO PRINT LINE. 



(RETURN) 
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REPORT LINE OUT SUBROUTINE 







I 






/ 




r 




SAVE INDEX 




/PRESs\ 
/ START \ 












1 






ii 




SETUP TAPE UNIT NUMBER 
INCREMENT LINE COUNTER 


S~\ 






< 


RLMTW 




IRETURNI 


( ERRORS 
yes 




TRANSFER TO MTWSRN TO 
WRITE RECORD ON MAG. 
TAPE (NO CHECKSUM}. 












LOAD INDEX 








n 








' 


r 








CLOUT 


IS ON-LINE PRINT REQUESTED? ^ 


k no 


SET OUTPUT AREA TO BLANKS. 


( HAVE 5 WRITE ATTEMPTS BEEN 
\^ MADE? 


1 * 


yes 


1 




n "■ 




NO ERROR 




k ERROR 


a 




DELAY TILL PRINTER READY. 




f BUFFER ERROR? ^ 




1 








' 


' 






n 










4 TO PRINT ERROR COUNTER. 




TERMINATE OUTPUT AND 
INCREASE LINE CNT. 














1 


' 




, 


i 






b 


|— / SKIP OR SPACE? V— -I 

11 1! 


i_t 








SKIP PRINTER. 




UPSPACE PRINTER. 






""■"•" 










' 


ELCP 








REMOVE CONTROL CHARACTER. 








' 






DELAY TILL BUFFER READY. 




* 








' 








LOAD INDEX = -33. 








' 






CONNECT PRINTER. 




MEMORY TO BUFFER TILL 
INDEX GOES +. 
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DATE TO BASIC UNITS SUBROUTINE 




BLANK: 
DUR1 
DUR2 
DUR3 



YEAR = SYEAR 
MONTH = SMONTH 
DAY = SDAY 



NMON = DATBASU 



I YRCOUN 



NMON = NMON-12 



> 



NMON = NMON+12 



MONTH = MONTH+NMON 



$DATBBU 



(pURl = 0l\ 



no (DATE GIVEN) /TO 

HendateJ 



(BASIC UNITS GIVEN) 



DATBASU = DUR1 



-Q SYEAR = 0? J- 



<i 



"MAKDATE 



CHECK UNITS TYPE 



HOURS 



,NVVlJ HOURS/DAY 
(ROUND DOWN) 



YEAR = YEAR+1 



c 



MONTH >12? 



^ \ no 



YEAR = YEAR+1 
MONTH = MONTH-1 2 



D- 



NWD = DATBASU 



NWD = DATBASU X 



DAYS 
WEEK 



CONVERT DAY BASIC UNITS 
TO DATE. 



CONVERT BINARY DAY, MONTH, 
YEAR TO BCD. STORE IN DURI, 
DUR2, DUR3. 
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DATE TO BASIC UNITS (Cont.) 




yes (MONTHS) 



CONVERT BCD DATE IN DUR1, 
DUR2, DUR3 AND STORE IN 
DAY, MONTH, YEAR. 



NMON = 

IX = YEAR-SYEAR-1 



START AND END 
SAMYR IN SAME YE AR j 

MONTH = SMONTH? \* =~(' X? ^yir 



ADJACENT YEARS 



SEPARATED YEARS 



NMON = MONTH- SMONTH-1 



w NADYRS 



NMON = 12 X IX 



NMON = NMON+MONTH-SMONTH+11 



SDAY+DAY > 30 



f> 



NMON = NMON+1 
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RESTART SUBROUTINE 



JRESTART 



BRANCH TO MAINCON 



PARAMETER READ SUBROUTINE 



SPARMRD 



READ PARAMETER FILE FROM 
TAPE 2. STORE EFFECTIVE 
DATE IN COMMON. 



BINARY TO DECIMAL CONVERSION 
SUBROUTINE 



SDECSCSR 



DECIMAL INTO BINARY CONTROL 

SUM6UTINE 



ttCDCON 



ENTRY WITH A BINARY NUMBER 

AT A BINARY MAGNITUDE OF 

23. 
NUMBER MUST BE POSITIVE AND 

LESS THAN 999999. 
EXITS WITH A 6-BCD-CHARACTER 

NUMBER. FIRST 2 DIGITS ARE IN 

POSITIONS 3 AND 4 OF B 

REGISTER, AND LAST 4 

CHARACTERS ARE IN A REGISTER. 



BLANKS TO ZEROS SUBROUTINE 



DECIMAL TO BINARY CONVERSION 
SUBROUTINE 



CONVERT BCD 4-DIGIT NUMBER 
IN A REGISTER TO BINARY. 
PLACE RESULT IN A REGISTER. 



INITIAL SUCCESSOR SUBROUTINE 



JBLDST 



CHECK FOR FIT IN CORE. 
INITIALIZE S VECTOR. 
S: = L+l FOR i = 0, NA. 



SBLTOZ 



CHANGE ALL BLANK CHARACTERS 
IN A REGISTER TO ZEROS 



RETURN 
DATE PACK SUBROUTINE 

SDATEPCK 



$DIB 

_3L 



SIMULATE SDS DECIMAL TO 
BINARY, SINGLE-PRECISION, 
FIXED-POINT PROGRAM 
OPERATOR. 



ORIGINAL SEQUENCE NUMBER 
SUBROUTINE 



SORGSEQ 



MERGE THE ORIGINAL ACT. 
NUMBERS INTO THE RIGHT HALF 
OF THE S VECTOR. 



PACK A 3-WORD DATE 

(D, M, Y) INTO ONE WORD. 



INITIALIZE PRINT SUBROUTINE 



END SUBROUTINE 



jPRINTIN 



'END 



SET LINE COUNTER TO 50. 
SET PAGE COUNTER TO 1. 
REWIND 1 AND ERASE A GAP. 



WRITE END OF FILE ON TAPE 1. 
TYPE THE WORD 'END' ON 
TYPEWRITER. 
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MAIN CONTROL 





$MAINCON 




" 


s 


ADRES1 


u 


FIND MACHINE SIZE. 


B 


COMPUTE ADDRESSES OF 


K 


S, PC, SC. 



PARMRD 

READ PARAMETER FILE FROM 

INPUT TAPE. MOVE 

EFFECTIVE DATA TO COMMON. 



READ DATA FROM CARDS OR 
PAPER TAPE. STORE DATA IN 
COMMON. 



HALT WHEN NO 
MORE INPUT 
RECORD PRESENT 



CONVERT BCD SORT KEYS TO 
NUMERICAL SORT KEYS. 



SORT 
MAIN INTERNAL SORT CONTROL. 



SET UP ADDRESSES FOR TAPE 
SORT. 



MAIN TAPE SORT CONTROL. 



'WRITE EOF ON OFF-LINE TAPE. 
TYPE END CN TYPEWRITER. 
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INPUT CONTROL ROUTINE 



SCARDRD 



SCAP2 

REQUEST INPUT DEVICE CARDS 
OR PAPER TAPE. 



Q CARDS? J- 



\_ PAPER TAPE? J 



BRANCH = 



PTRSR 
READ PAPER TAPE 



GE.E) 



ClA] = B?"V 



NOT A, B, OR C 



KEE) 



r ERROR 109 J- 



BRANCH = 1 



CRDSR 
READ CARD 



MOVE 'B' COMMENT TO 
COMMON 



MOVE 'A' COMMENT TO 
COMMON 



SET PAST FUTURE INDICATOR 
PF PRINT 




' 


1 




SET MAJOR ACT. INDICATOR 
MAJOR 




' 


/ \ 


MOVE RUN ID TO COMMON 


IKETURN1 




' 






MOVE EFFECTIVE DATE TO 
COMMON 




BREAK UP SORT CODES AND 
MOVE TO COMMON 








. 


i 



c 



BRANCH = 0? 1 no 
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MAGNETIC TAPE READY 



ST2DLAY 



( 


BUFFER READY? 




y« 




no J 


' 


' 







/return) 



$TI DLAY 



C 



J: 



BUFFER READY? 



^ \no 



no/ \ 

—i UNIT 1 READY? ) 




BCD CODE TO NUMERIC 



C NCODES > 0? y 



no NO CODES 



(BCDCODF(NC) \> 
= BCDTAB(NT)? )~ 



NT = NT+1 



^NT>19?) 





SRTCD(NO = NUMTAB(NT) 



^WsuCH CODE ( NC " NCODeP) 
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MAIN SORT CONTROL 



$SORT 

X 



FIRST PASS INDICATOR ON 



IX = NCODES 



SECONDARY KEY IND. ON 
SECKEY = -1 



f SRTCD(IX) = COST OR RESP?\- 



LAST KEY IX < 1 ? 



0" 



SECONDARY KEY INDICATOR 
OFF SECKEY = 



(SRTCD(IX-l) = CO 



ST OR RESP^ 



yes ir 



SCODE = SRTCD(IX) 
PCODE = SRTCD(IX-l) 



READ DATA FROM TAPE AND 
STORE IN PC, SC 



^-{ FIRST PASS? J 



BLDSI 
INITIALIZE S, S- 



SET FIRST PASS INDICATOR OFF 



SORT2K 
SORT ON ONE OR TWO KEYS 



PCODE = SRTCD(IX) 
IX = IX+1 



{ IX = 0? jl 
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READ CODES 




SCODES 





" 






REWIND 2 






T 


PRIMARY 


s 

u 

B 
R 


TRANCAL 
COMPUTE TRANSFER INDEX - LP - 




" 


yes { 









(B) = CONTENTS OF 
THE B REGISTER 



^SECKEYTj 



SEC. 



MTRSR 
READ MAG. TAPE 



( LAST RECORD? ") 



ACTIVITY RECORD? 



STORE 

store prim. code in 
pcrc 



C LP = 3 OR 4? \ 



( SECKEY? V^ 



STORE SEC. CODE IN 




i 



SC RC = (B) 



172 



TRANSFER INDEX 







$TRANCAL 



K>> 7? ) 



(A) = CONTENTS OF THE 
A REGISTER. 



<^y 



NORMAL L = 



((A)=U?y 



DATE 
L=2 



ACTUAL SUR. L = 9 




COST CODE L= 3 -« — ^Y(A) = 45? } 



RESP. CODE L = 4 



~J=(j£«) 



STATUS L = 5 



KEE) 



FLOAT L = 6 «• ^ ((A)=38?) 



DURATION DIFF L = 7 



* E^(jA) = 39?J 



TOTAL SLIP L = 8 



«-^ Q) = 41?) 



,- T , , ,.,. - _ yes/' "\ 

ACTUAL iiATui L = 5 «« i — f (A) = 59? J 
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L = TRANSFER INDEX 
CN = NUMERIC CODE 
(A) = CONTENTS OF A REGISTER 




f BIg\« ^ ( 'A0 CN = Q? ^ ^ , j 
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ADDRESS CALCULATION 



SORT ON TWO KEYS 





JADRES1 




$SORT2K 






i 








1 




FIND LAST LOCATION 
IN CORE (LSTLOCJ 




LEGl = -1 
NIP = 
Nl = S 




* 






CALCULATE MAXIMUM 








' 




NUMBER Of ACTIVITIES: 
MAX- LSTL0 5- ENDP 






1 






N2 - S N , 






+ 










S = ENDP+1 






1 


' 


^Zfl — ^return] 




' 


r 




N2 = 0? 




PC = S+MAX 




no 


V^ 












[_ pc NI = pc N2 ? y^+( seckey? y^n 






SC = PC+MAX 




no 


no 




" 


1 no 










yes i 


[_ pc n1 >pc n2 ? ] 


^ LEGKO? ^ 


J-. 




1 


f 




no 




yes | 






r 






NIPS = NIP 
LEGl = 








LEGl = -1 






























" 


) 






SEC. IN SbU. yes 


( SC N1 s SC N2 ? ^ 










,r 












NIP = Nl 
Nl = N2 














" 




SADRES2 


PRIM 


OUT OF 


>EQ. 




IIP = NIPS 

11 = s llP 








INSER 


r 








* 




S„p= N2 
S NZ = 11 

S NI ~ S N2 




11 = 












SELECT = S+NA+1 










































" 








' 






i 




IIP = 11 
11 = S„ 






r-rn,..^. LSTLOC- SELECT 
STRINGM NQ wDSAC+2 


















* 














SEQ = SELECT+STRINGM 




yes 


' 


' 


no 


SEC. OUT OF StQ. 








[ rc M >PC N2? J 








yes 






i 




no 


> 




THREDIN = SEQ+STRINGM 






1 I 




( rc n = PC N2 ? ^ 




1 


no 






yes 


* 






SECKEY? 




\_y 








yes 


' 






[ SC I1 > SC N2 ? ) 












no 
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MOVE SELECT SUBROUTINE 



MAIN TAPE SORT CONTROL 
SFINSORT 



REWIND 2 



PRINTIN 

INITIALIZE PAGE AND LINE 
COUNTERS (PAGEC, LINEC) 
PREPARE TAPE 1 FOR WRITE. 



ORGSEQ 

MERGE ORIGINAL SEQUENCE 
NUMBERS INTO THE LEFT 
HALF OF THE S VECTOR. 



LPK = 1 
ACTK = 
ACTAA = S„ 



SKIP PARAMETER FILE 



INSERT NEW ACT. NUMBERS 
AND MOVE TO SELECT AREA. 



SORTSEL 

SORT SELECT AREA ON 
ORIGINAL ACT. NUMBER 
AND MOVE TO SEQ. AREA. 



READTP 

READ INPUT TAPE INTO 
RECORD BLOCK IN SORTED 
SEQ. 



JMVESEL 



C 



ACTAA 



0? j- 



SET REMAINDER OF 
SELECT EQUAL TO -1 



CREATE A WORD WITH ORIGINAL 
ACT. NUMBER IN LEFT HALF AND 
K IN RIGHT HALF AND STORE IT 
IN SELECTC. 



no/ " 



> 



{return] 



LPK = LPK+STRINGM 



c 



NA --■ ACTAA? 




WRITE AND PRINT THIS 
BLOCK OF RECORDS. 
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SORT SELECT ROUTINE 
SSORTSEL 





' 








LOC = SEQ 














1 




i = 1 








" 










TO 
SMALL = KT" 












< 


1 






_yfi( 


''SELECT. > SMALL?") 




' 


no 








is = i 








i 


< 








SMALL = SELECT, 
t 














• 


< 






i = i+i 






i 


' 






fi> STRINGS 


^no 




J 






yes 


' 




(LOC)= SELECT. 

IS 








' 






LOC = LOC+1 








< 


. 




no 


r. 


OC=S 


EQEN 


D? 




READ SELECT 
jREADTP 



f SEQ. = 7777? Jr 



COMPUTE LOC TO STORE 
INPUT RECORD. 



SET UP INST. TO PICK UP 
ACT. NUMBER FROM TAPE 
RECORD. 



EXTRACT ORIGINAL ACT 
NUMBER FROM SEQ. 
(TPRCNUM}. ' 



READ RECORD INTO 
PRE-CALC. AREA. 



PICK UP ACT. NUMBER 
FROM RECORD AND 
CONVERT TO BINARY 
(ACTNUM). 



TPRCNUM > ACTNUM? 



MAIN PRINT CONTROL 



SPRINT 



/ANY LINES TO BEN no 
V fRINIED? J T 




RETURN! 



TPRCNUM = 


ACTNUM? 




yes 


■ 






i = i + 1 








' ,,.. 






■X i >STRINGM? *\ 



INITIALIZE RECORD 
ADDRESS. 



MOVE RECORD TO IAO 



(PRINT MAJOR ^N no 
ONLY? J 



/Ts THIS A MAJORS 
\ACTIVITY? J 



/print future " 
\activity only?, 



/7s this a futur"e\ 

\ ACT1VITY? J 



PRINT AND WRITF 
RECORD ON TAPE 



(LAST RECORD \> 
PRINTED? J~ 



RECKNT = RECKNT+1 



CALCULATF NEXT 
ADDRESS 




177 



SORT OUTPUT 



$PVOUT 



( LINEC >23? \ 



MOVE PROJECT STATUS HEADING 
INTO OUTAREA WITH EJECT CODE. 



SET UP EFFECTIVE DATE IN OUTAREA. 



SET UP RUN-ID IN OUTAREA. 



CLEAR REMAINDER OF OUTAREA. 



TO RLOUTSR TO PRINT 1ST LINE 
OF HEADING. 



INCREASE PACE NUMBER. 



SET UP I, J, DUP AT BOTH ENDS OF 
PRINTOUT. 



TO RLOUTSR TO PRINT 3RD LINE OF 
COLUMN HEADING. 



SET UP 3RD LINE OF COLUMN 
HEADINGS. 



TO RLOUTSR TO PRINT 2ND LINE 
OF COLUMN HEADINGS. 



SET UP 2ND LINE OF COLUMN 
HEADINGS WITH UPSPACE 1 CODE. 





1 










CLEAR LINE COUNTER. 




TO RLOUTSR TO PRINT 1ST LINE OF 
COLUMN HEADINGS. 










' 






i 




MOVE 1ST RUN OF USER'S 
COMMENTS TO OUTAREA. 








SET UP 1ST LINE OF COLUMN 
HEADINGS WITH UPSPACE 3 CODE. 








' 




i 


i 


CLEAR REMAINDER OF OUTAREA. 








TO RLOUTSR TO PRINT 3RD LINE 
OF HEADING. 




' 




' 




i 


. 


SET UP UPSPACE 1 CODE IN OUTAREA. 








CLEAR REMAINDER OF OUTAREA. 




' 




' 




, 


, 


TO RLOUTSR TO PRINT 2ND LINE OF 
HEADING. 










' 










MOVE 2ND ROW OF USER'S 
COMMENTS TO OUTAREA. 





















SET UP TOTAL ESTIMATED FLOAT. 



SET UP DURATION OUTPUTS. 



SET UP START AND FINISH COLUMNS. 



SET UP TOTAL SLIP AND NUMBER OF 
SLIPS. 



SET UP PREDICTED AND ACTUAL 
STATUS. 



TO RLOUTSR TO OUTPUT LINE. 



SET UP UPSPACE 1 CODE. 



MOVE COST AND RESD. CODE AND 
ACTIVITY DESCRIPTION INTO 
OUTPUT AREA. 



TO RLOUTSR TO PRINT LINE. 
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